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QUICK LOOK-UP OPERATING INSTRUCTIONS 
, LOOK UP THE FOLLOWING SECTIONS: 
Ue poe 


QUIREMENTS 
vet AND OPERATOR ACTION 


OPTIONS 
COMPLETE ANATION REFER TO THE TABLE OF 
TS BELOW HE FOLLOWING DOCUMENT. 


TABLE OF CONTENTS 
ABSTRACT 
REQU Ss 
SSCieNENT 
PRELIMINARY PROGRAMS 
EXECUTION TIME 
STARTING ADDRESS 


PROGRAM CONTROL MODES 8 OPERATOR ACTION 
PAPER TAPE 


Rabe CHAIN OD 
CHAIN MODE 
ACTil 


DRIVE SELECTION 
DORIVE-LESS TEST 
SWITCH OPTIONS 
SCOPE LOOPS 


DRIVE DEPENDENT CONTROLLER TESTS 
ERROR REPORTING 
ERROR INTERPRETATION 


ROLERS COMMON ROUTINES 
FRROR 


I 
WAI FOR INT ROUTINE 
HANDLER (1/0), ERROR TYPEOUT ROUTINE 
DOWN/POWER UP ROUTINE 


‘UNEXPEC TIMEOUTS & RK11 INTERRUPTS 
QUICK VERYFYING MODE 






ore 


1.0 


mot 
-—- © 


2.2 


2.3 


3.0 


4.0 


ABSTRACT 


THE ad Re TESTS CONSIST OF A SERIES OF y di S 


haa, ie eee ta 

RK1L OL T THA 
LOsre 13 hantors Lae cyest It TOGETHER Cones Trture 
WHEN USED IN CONJUNCTION WITH A DRIVE IT IS CAPABLE 
OF DETECTING FAULTS IN THE DRIVE ALSO. 


USED CORRECTLY THIS ot CAN BE AN EFFECTIVE 
ANALYTIC AND DIAGNOSTIC TOOL. 


REQUIREMENTS 

EQUIPMENT 

8. OPI WITH C WITH CONSOLE TELETYPE. 

C. RK On RA RKV11 CONTROLLER 

D. 1-8 RKGSF DRIVES OR THE RKOS SIMULATOR 
(DRIVE ¥ BE MIXED) 


PRELIMINARY PROGRAMS 
RK11 BASIC LOGIC TEST I (MD-11-DZRKJ) 
EXECUTION TIME 


GEE “TREES ENE ER MD Sa TPS 


ASTER MACH 


STARTING ADORESS 
FOR ANY MODE OF OPERATION. NORMAL START UP WITH 
SWITCHES DOWN. 


PROGRAM CONTROL MODES 8 OPERATOR ACTION 


DOL 


SES 0003 


4.1 
4.1.1 
4.1.2 


4.1.3 
4.1.4 


"1.5 


4.1.6 


PAPER TAPE LOADING 


pee po ae MEMORY USING STANDARD PROCEDURE 


WAKE SURE THAT THE DRIVES To BE CHECKED Q 
se eral ver oe ee 
LOAD ADORESS 200 


SET SWITCHES IF DESIRED (SEE SEC 7.0) IF TESTING ON 
SIMULATOR PUT SW< 10> UP. 


PRESS START. 


THE PROGRAM IDENTIFIES ITSELF (NAME,MAINDEC NO), 
THEN THE FOLLOWING QUESTION IS ASKED: 


DRIVES TO BE TESTED’ 


Heit esi ys eee ees 


SUFFIX °F’ WITH FI DRIVE OF PAIR. 
FoR EXSPPLE, IF DRIVES 2 oe oN oF hg Pack. 


ExmP: DRIVES TO BE TESTED? 0,1,2<CR> 
THE DRIVES DO NOT HAVE TO BE IN LOGICAL ORDER. 
EXMP: DRIVES TO BE TESTED? 2,4<«CR> 


ff ug at $3 se reve fo OF Dette 2 TYPE IN THAT 
THUS A NORMAL SEQUENCE WITH DRIVES 0,1 WOULD BE: 
mu LOSte TEST “5 
Dives 7 ar TESTED? 0,1<CR> 
CO eT ee 
Tre RueeeD CHR AC ARE E WITHIN 


“tU" DELETES THE ENTIRE LINE 


Esier il? OME ECE BSTIO HELI Bi 
d- 4 de 
IS AUTOMATICALLY RESECTED, A 42 PRINTED but; 


THE CORRECT ANSWER CAN NOW BE RETYPED AGAIN. 


ee ee 


EO] 


SEG 0004 


4.1.8 


4.1.9 


4.2 
4.2.1 


4.2.2 
4.2.3 


4.3 


THE DRIVE NUMBER BEING TESTED OUT IS PRINTED: 


IVE_N :N20,1...7 

ee pate’ $8°AN RK-OSF, @N F IS APPENDED 

AT THE END OF A PASS THE FOLLOWING TYPE-OUT OCCURS 
END PASS 8 X 


BOS BSE MEE al lb 


BEGINS. NO QUESTIONS ARE TO BE ANSWERED AGA 


ne a eo oe AS SHOWN 


ee. 


ma 


Segara R 
i 


RKDP DUMP MODE 


Ls a aa IS LOADED INTO THE MEMORY BY THE RKDP 


START AS NORMALLY USING SA 200 


BE PRG TESTES ISL OES Tha 


MODE), THE FOLLOWING ME’ 


’TO TEST DRIVE ’N’ HALT AND REPLACE IT 
roca, REMOVE Rho RES RESTART PROGRAM’ 


WITH WORK PACK, CLEAR LOCATI 


Br GRAVE SHOULD BE REPLACED BY" RIGTHER PACK tHe DRIVE 
ON 'WRT ENABL’ (BE BE KDE GR WRITE 
PROTERTES 1 DRIVES 


IF Font te ‘ic my NOT TO BE CHECKED, THEN THE MESSAGE 


oe ren te ota Pe OF QUESTIONING IS AS 


RKDP CHAIN MODE 





SEG 0005 





4.4 


s.0 


GO1 


THE PROGRAM IS CHAIN-LOADED FROM THE re Sree ON 
IVE °N’. AF HE PROGRAM IDENTIFIES ITSELF THE 
OLLOWING PRINT OCCURS. 


“DRIVE °N’ NOT TESTED’ 


THERE IS NO OPERATOR IN TION REQUI THE 
PROGRAM FINDS OUT THE Ives BRECERT. 


ACTi1 MODE 


THE PROGRAM IS LOADED BY THE ACT11 MONITOR. ON 
STARTING, IDENTIFIES ITSELF, ASCERTAINS THE NUMBER 
OF ORI VES aN B PROCEEDS WITH THE EXECUTION OF THE 


DRIVE SELECTION 


Fee EON Be BF onc BPH ore Ee 
PU Rest OF THE Gave i, atte) 


Ye barney s-'T10 S TO 
IN THE DRIVE NUMBER FOLLOWED BY 


DRIVE-LESS TEST 


RK11 BASIC LOGIC TEST I, WHICH IS ACTUALLY THE 
FIRST end ot HE TWO-PART RK11 BASIC LOGIC TESTS. 


SWITCH OPTIONS 


HE PROGRAM IS BEING ON_A Fe HARDKAR Proce 08 tf A AN 11734) 

PROGRAM WI re Tat T CH REGI IS 

PRESENT AND wit SWITCH REG " = 
Sh REGISTER IS LOCATED AT LOCATION 176 (8). THE 

SOFTWARE’ SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
BY TYPING A *CONTROL G’. THE PROGRAM WILL 
G’ whenever the t progres enters 

the scope routine or begins a new test 

* SOFTWARE? SWITCH ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 

TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 


*SWR = NNNNNN NEW =’ 

ACH TIME SWIT TING ENTIRE SWITCH REGISTER 

i Aer be ENTERED. LEADING NOT REQUIRED., "RUBOUT’ AND 
u’ FUNCTIONS MAY BE TO CORRECT TYPING ERRORS 

DURING SWITCH ENTRY 


REGISTER PAV oe Uney. Ur THE Progra Fine ALL Te SuITCHES IN The 


'UP’ POSITION, ALL SWITCH REGISTER REFERENCES 
“SOFTHRRE™ F REGISTER AND THE PROCEDURES DE DESCRIBED SoOvE sust 





o— —— eee eee 


7.1 


7.4 


7.5 


7.6 


SW<1S>=] HALT ON i 

SW<14>=] LOOP ON TEST 

SW<13>=21 INHIBIT ERROR PRINTOUTS 

SW< 1l2>=1 CYCLE ON TO THE PREVIOUS 
ret TATEMENT 

SW<il>=1 ite T TIONS 

SW< 10>= STING SIMULATOR 

Ss LB Bh PEE or on 

SW< 06>= IVE AFTER MAXIMUM 
ALLO OF ERRORS OCCUR 

SW< 15> 


PROGRAM HALTS ON ENCOUNTERING AN 


RRS (PRESSING CONT! ge a 


OPERATION OF T 
SW< 14> 
PYECUTED GEN THE QUITCH IS PUT ON. "pals Beis 
NORMALLY ALONG SW 15. IS FE set'e.0 
SW <13> 
THIS SWITCH INHIBITS ALL ERROR MESSAGES. NORMALLY 
USED WHEN LOOPING ON TEST (SW 14) OR LOOPING ON 
ERROR (SW 9) 
SW <12> 
THIS SWITCH T To crc 
Poth oF TERROR CT On The PREVIOUS SUPE STAYEMENT. 
a te Teperenee ar THE ANY INITIAL TzAT 0n OFONE Bone AGAIN 
AND AGAIN. SEE SEC 8.0 FOR Ree TPrERONT FE COPEY 
SW <11> 
EACH SUBTEST WILL BE EXE NORMALLY 
AFTHE F FIRST pass H SUBTEST 15 MT RATED A 
TINeS 30 CASES). 
Selo sulTCh H JME ts 71 , SO THAT 
SW <10> 
THI ae ct SET NOICATES | ie TESTING 1S BE 
ING CTS PROGREN NOTE THAT. RELIC 
NOT OPE MPRTIBLE WITH THE SIMULATOR 


ING 
S 


HO 1 


nash : 


SEG 9007 













| 
| 





7.8 


7.9 


8.0 


Sw <0%> 


THIS SWITCH PROVI TIGHTEST POSSIBLE SCOPE 
ko Te at res suie my, Pe le aed 


ay 

S61TH PATTERN. THIS CASE SW 
A SCOPE LOOP ON THE S61TH PATTERN ONLY 
SW <08> 
THIS SWITCH IS USED TO CT A PARTICULAR TEST (AS 
PER sacaoco7>) FOR EXECUTION AND SUBSEQUENT ING 
THUS IF TEST 15 IS TO BE SELECTED THE | gle SETTING 
WOULD BE 000415. IT SHOULD BE NOTED THAT BEFORE 
SELECTING Me ALL THE PREVIOUS TESTS (1-14) 
WILL BE EXEC : 


coat i Boon Shan ore then aS 
THE MAXIMUM 


AFTER S ERRRORS NAVE OCCURED DRIVE 
A MESSAGE (DRIVE ® XXX DROPPED) IS 


THERE ARE THREE KINDS OF SCOPE LOOPS AVAILABLE 
1. SW14: LOOPING IS DONE FOR THE ENTIRE SUB-TEST 


@. SWl2: LOOPING IS DONE FROM THE POINT OF ERROR 
BACK TO THE PREVIOUS ’SCOPE’ STATEMENT. 


3. SWOS: PROVIDE ng TIGHTEST POSSIBLE SCOPE LOOP 
SEE SEC. 7.7 


INITIALIZATION 
ERROR 1 
ERROR 2 





TST. 


ERROR 3 
ERROR 4 
TST2: SCOPE 
F 
RED BEL ou. TPE, te The vet en O95? ope 
TAGS WHICH DEFINE T (IN. THIS 
CASE TEST 1). NEST i 1 ores. AT OF rete Sako ENDS JUST 
BEFORE *TST2’. 
HE ILLUSTRATION BELOW --> INDICATES THE POINT 
Peon MERE RETURN IS MADE AND LOOPING IS DONE. 
1. ERROR 2 OCCURS, SW 14 SET. 
.ERROR 2..TST2-->TST1..ERROR 2..TST2-->TST1... 
2. ERROR 2 OCCURS, SW 12 SET. 
TST1...ERROR 2--)>TST1...ERROR2-->TST1... 
3. ERROR 2,3; SW 14 SET. 


TST1..ERROR 2. —- 3..TST2-->TST1..ERROR 2..ERROR 
3. teiB > ISTi. 


4. ERROR 2,3; SW 12 SET. 
TST1...ERROR 2-->TST1...ERROR 2-->TST1.... 
NOTE THAT LOOPING IS DONE FROM THE VERY FIRST ERROR 


een enh Cae oe Fie EARLIER 
IT OCCURS AND IS DETECTED AND SHOULD BE FIXED. 


Ste Tey LS ene elo 


DIFFERENCE NEETHEEN Si Sid oan AND 12" 


TST1: SCOPE 
INITIALIZATION 
ERROR 1 
MOV #1$, SLPERR .? * CONTAINS 
+ AE ERGRESS 0 LOOP 


1S: : eee 
; I 
ER I M REPETITIONS 


JOl 


SEG 0009 


9.0 


| 3.1 


TST2: SCOPE a 


1. SW i2@ SET, ERROR 2 OCCURS DURING K.TH 
REPETITIONS 


TST1..1,2...K.ERROR 2--)TST1..1,2...K.ERROR 2-->TST1.. 


&. SW 9 SET, ERROR 2 OCCURS DURING K.TH REPETITION 
1§..K..ERROR @--)1§..K..ERROR 2--)18... 


PROGRAM STRUCTURE 
THERE ARE THREE DISTINCT PARTS OF THE PROGRAM. 


per PHASE 
DRIVE-DEPENDENT CONTROLLER TESTS 
SET-UP PHASE 


SETTING UP OF INITIAL POINTERS, VECTORS, TABLES IS 
DONE IN THIS PART. IN THI THIS SECTION THE DECISION I IS 


a ge gO ge 


FOUND OUT iy oe SET TO INDICATE 
WHICH DRIVES ARE TO BE TESTED, ETC 
DRIVE DEPENDENT CONTROLLER TESTS 


THIS SECTION FORMS A MAJOR PART OF THE PROGRAM 
IN MOST OF THE CONTROLLER IS CHECKED. 


ORE ENTERING THIS SECTION THE PROGRAM 


Bie SAR ele Ne Sls Me ne en 


THE DRIVE NUMBER BEING TESTED IS PRINTED OUT: 
DRIVE N ;N=0,1,2.. 

T STING IS DONE INA LOG HIERCHY, SIMPLER 
THINGE FIRST, THEN MORE soil Mg gr 

IN OF THE TESTS THE ENTIRE DISK PACK IS 
FORMAT CHECKS ARE MADE FOR ERROR CONDITIONS. 
THE FIRST WORD OF EVERY SECTOR S WRITTEN 8S of 
Tit SE Crore cTon_ CORIVE a. on NOERY s, FAC Bo eCTOR 
SURFRCE'O” CYL CYLINDER 20" DRIVE O WOULD BE 001005. 


Bea TSS eS PE I fs 


waren TEST aly THE PSUEDO-HEADE 
VERIFIED. 


KO1 


SEG 0010 


10.0 


ALL THE FUNCTIONS ARE CHECKED OUT. ‘SEEK’ IS 
CHECKED IN THE THREE DIFFERENT VELOCITY MODES (HIGH, 
MEDIUM VARIOUS ERRORS LIKE 'NXD’, 'NXC’, 
ETC. Une e STMULATED AND CHECKED. 


HARDWARE POGIC IS CHE USING ALL THE DRIVES 
THAT HAVE BEEN INDICA 


ThOrGeTED. oe TS, SECTION, 8 FeStED. ‘Te'NOT, CONTROL 
TRANSFERRED TO THE BEGINNING OF THIS Section. 

THUS ONE PASS OF THE PROGRAM INVOLVES DOING 

1. SUBTEST #1 ONCE 


&. _DRIVE-DEPENDENT TESTS FOR ALL THE SELECTED 
DRIVES. 


ERROR REPORTING 
T alan 108 RR AINS 
Po Ri oe, Pe 
TABLE CONSISTS 
A. EM - THIS IS A POINTER TO THE ERROR MESSAGE TO 
BE TYPED OUT WHEN THE ERROR OCCURS. 
B. DH - THIS IS A POINTER TO THE DATA HEADER TO BE 
TYPED OUT. 


C. DT - THIS IS A POINTER TO THE DATA WHICH IS TO 
BE TYPED TYPED OUT UNDER THE HEADERS. 
THIS IS A TERMINATOR FYING THE END OF 
Tie fren, see 
THE ERROR CALL i AN EMT INSTRUCTION WITH ITS LOWER 
BYTE ENCODED INDICATE THE ERROR NUMBER. THUS 
OR 1" WOULD BE (ENT#L) IE 104001. 


ey Oe ore ees TS EN TEM IN ERROR 
i RAS POSS Pi eee i 


N 

I TABLE FOUND IN THE BEGINNING OF THE LISTINGS. 

THUS FOR “ERROR 14” TEN AM IN THE ITEM TABLE CAN 
L UP. WHEN NSTRUCTION IS 

EXECUTED A TRAP OCCURS TO T eBRROR HA LOCA 

aT WHICH PROCESSES THE CALL SEC 

ERROR INTERPRETATION 

WHENEVER @N ERROR MESSAGE IS PRINTED OUT, ALL 

REGISTERS AND OTHER DATA PERTAINING TO THE ERROR ARE 


LO1 


SES 0011 


12.0 


l2.1 


12.2 


12.3 


ALSO GIVEN. RKDS, RKER...RKBA INDICATE THE CONTENTS 
OF THE CERRESPONDING REGISTERS AT THE TIME OF ERROR. 


EVERY ERROR MESSAGE CONTAINS A PC. THIS PC 
INDICATES THE POSITION IN PROGRAM WHERE THE ene 


CALL IS LOCATED. THE ERROR MESSAGE, BECAUSE 
PRACTICAL CONSIDERATIONS IS SHORT AND 
MEANINGFUL. THE USER IS ADVTO LOOK UP THE 
PROGRAM LISTING, WHERE HE WILL FIND MORE 
INFORMATION ABOUT ERROR. IN MANY T A 
IVE RISE TO THAN Ehok 
TLE DELIBERATION AND 


SUBTEST. 
NUMBERS GIVEN WITH ERROR MESSAGES ARE IN OCTAL. 


HANDLERS AND COMMON ROUTINES 


THE COMMOSED ROUTINES USED IN THE PROGRAM ARE 
CALLED IN TWO WAYS. 


A. AS A SUBROUTINE THROUGH ’JSR’ CALL 
B. THROUGH A ’TRAP’ HANDLER 
TRAP HANDLER 


CALLED USING The” TRAP INGTRUCTION AND HE. TRRE® 


BYTE OF THE TRAP INSTRUCTION IS 
ENCOOED DIFFERENTLY FOR DIFFERENCT. ROUTINES. 
TRAP HANDLER TS LOCATED AT _°STRAP’.— WHEN A CALL FOR 
a a ROUTINE 1s ExECUTED TRAP OCCURS TO THE HANDLER 
;.THE HANDLER P PICKS UP THE LOWER BYTE. OF 
THe “call INCTRUCTION® 


STARTING SS OF THE ANROUT ENE d bo “To. FOR 
SERVICE. 
SCOPE HANDLER 


oles he TRAP IS USED BY Lf 
cS Mod at tea 


I WHICH 
HUS, IT 5 NOT ADVISABLE START THE 
PROGRAM AT ANY GIVEN LOCATION SINCE THE VARIOUS 
POINTERS AND FLAGS MAY NOT BE LORRECTLY ADJUSTED. 


ERROR HANDLER 

THe’ LOWER s*EncOGeD 10 E1ve DIFFERENT 

CALLS. (EX: ERROR 1 1 

104000+16). WHEN THE ERROR STATEMENT 1S EXECUTED, 


MO1 


SEG O0ie2 


12.4 


12.5 


TRAP OCCURS TION *SERROR’. THE ERROR 


Tne& 10 te 4 ati a ae aa 
GARNER 


ROUTINE LOCATED AT 


CONTROL RESET ROUTINE 
ne nh FOR co Aa. st. 3 i “ONT RE RESET” AND of- ts 


one ie ma Base ie 


NOT Ser TUITHIN : NEERTAIN. TIM AN’ ERROR RROR IS REE PORTED 
THE PC TYPED OUT Fen’ Sear! 
“CNT.RESET" CALL IS LOCA THE WAITING TI 

2.8 MS FOR 11/20 AND S60 US FOR 11/4S WITH BIPOLAR 
MEMORY . 

CONTROL READY ROUTINE 


TAS PHD TSB oF LI os 
Lindh stl ea i ete Te Eo 


CNTRL ROY DIDN’T SET 
PC = XXXXXX RKCS = 


YYYYYY 
Te Pde ne LOCATION OT IC Te 
IS_ LOCA THE WAITING TIME IS 949 MS FOR 170 


AND 189 MS FOR 11/45 WITH BIPOLAR MEMORY. 


DRIVE RESET ROUTINE 
he ty a eT 5, LOCATED AT ve eter AND 


“Se! AND 

Shih Rus ROY 10 a ts aH 

1s Bxttep. THE WA TaN. ire MFR ll/ 

FOR 11745 WI 
TIME DELAY ROUTINE 
ents mois ads ge AR, 4 on Tire, DELAY THE 
0 (OCTAL) TIME 
ee PROVIDED= 7.5 5 TIRES ‘ ch en M . 10 CecrheL 
ne Nee ae NG DELAY) I THE USER RANTS, 1 

eiy “POINT IT CAN BE DONE BY SIRPLY 


NOL 


SES 0013 


ee ee 


12.8 


12.9 


WAIT FOR INTERRUPT ROUTINE 


une xt “INTER 8 “ Bt ay TIME LIMIT OURING 
11 IN CUR, > 
1 (OCTAL) 


Waiting tIneer. S TIMES( x } N Ys FOR 11/20, 1.5N US 


FOR 11/45 UPON ENTERING THE HE ROUTINE CPu PRIORITY 1S 
SO THAT RK11 CAN INTE Te 

OTHER ROUTINES 

THERE ARE OTHER COMMONLY USED ROUTINES AS LISTED 

BELOW. 

TYPE: 

TYPE ROUTINE FOR TYPING OUT ASCII STRINGS. 

OCATED AT “§TYPE~ 

BY “TYPE™ 


I -w 


STYPOC: 
ROUTINE FOR TYP! TAL NUMBERS. 
Pours ae aT _~STYPOC™ oeaieed 


= FOR TYPING C MBERS. 
ROUTINE FOR, OUT DECIMAL NUMBERS 
CALLED BY “TYPDS" 


OR_ INPUTTING ASCII STRINGS FROM TTY. 
Tn $ROL 


BE 


ROUT por HANDLING POWER FAILURE. 
OCATED AT SPWRON 
WHEN THERE IS A POWER FAILURE. 


BOUTINE FOR HANDLING POWER UP AFTER A POWER FAIL. 
LOCATE SPWRUP 


TIRE OUT OCCURED 18 TYPED OUT AND’ THE PROGRAM WAL TS. 


BOe 


SEG 





aA Ant 
UGi4 


eed 


14.0 


IF IT IS INTACT, IT CAN BE RESTARTED BY PRESSING 
CONTINUE. 


if AN he Aa 1 INTERRUPT OCCURS THE PROGRAM 
eon Ne er THE INTERRUPT CAME IN AND 
THEN HAL BRESSING ONTINUE WOULD ot Mae THE 
PROGRAN FROM BEGINING. Sw 9- LOOPING CAITY IS 
PROVIDED AS A TROUBLE SHOOTING AID. 


QUICK VERIFYING MODE 


The “Tests ere Gohe “Oncy Once, ON 


SUBSEQUENT PASSE : THE TESTS BRE : T NORABLL "ees 
Tage 6 Sonica! tps £58 SORPCeTE, mse Es 


TRKE MORE 


oar PASS OF 


ee ee + 


C02 


SEG 0015 


' MACY31 27(1006) O4-O0CT-76 16:06 
-SEP-76 08:47 TABLE OF CONTENTS SES OCi6 





ru 
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OPERATIONAL SWITCH SETTINGS 
48 BASIC INITIONS 
1S§ TRAP CATCHER 
if piers SS(ES) 
155 AON TAG 
A sa NE COMMON TAGS 


GRE 


SF 


atten 

frais 
— 
Ene 
: 


l 
l GISTER 
1312 ceY vac Mat prives fs HAT ARE NOT SPECIFIED ARE NOT FOUND TO BE PRESENT 
iad § FINS Paltte BRIVE iy emigrate POWER-DPL BIT 
] TH REK THAT Rate S CLEAR, "HDEN’ if SET, 'WPS’ IS CLEAR 
1528 TS CHECK THAT "DRIVE Y’ I$ SET IN'RKDS 
1549 Tg CHECK THAT *SOK’ BIT CAN SET 
1568 CHECK THAT SECTOR COUNTER’ CAN COUNT FROM 0-13 
1666 T10 CHECK THAT SC=SA CAN BE GENERATED 
1704 Th Sent T *R/W/S ROY’ IS SET & SIN’ IS CLEAR 
ing Tl OES * YLINDER hy 
1850 114 CHECK R/W/S ROY T WHEN HEADS ARE IN MOTION 
| = 1800 T1S CHE "WRI SOT Onn TION-CYL INDER 0, SECTOR O 
| 613 Tle CK ‘READ FORMAT’ FUNCTION-CYLINDER 0, SECTOR O 
| lel Tl? CHECK *READ” FUNCTION-CYLI ,SECTOR’O 
| 32u6 120 CK "WRITE FORMAT’ I CTOR 0-13 
eat T CK ’ FORMAT’ -CYLI 0, °F Qi 
54 T Ck * “CLIN | SECT TO 1 
2616 Te3 CHECK *WRITE T’ 
| Bre Te SHE CK "READ FORMAT’ FOR TH NTIRE DISK 
| xe Tee CHECK it a gers te iy ee r T VELOCITY MODES 
ca T eer , ne 0, CYLINDER O 
| 13 CHECK She Pe ae 
sca; 733 ae 3t4 EO" FUNCTION - on CYL TO RG. CsecToR 0 
| 30 1 eK Ther 1A i ISIS 
| Sock T Keck The THaT i th tBe Ret Ket te INTIATION & COMPLETION OF SEEK 
3920 13? CHECK THAT WITH 10e RK11 INTERRUPT READ IS DONE 
399 THO CHECK THAT RK 
4078 141 SIMULATE & CHECK ’OVR’ 
| 4156 T4 IMULATE & CHECK PGE 
| 4ppe T43 IMULATE & CHECK NXM 
| mpgs THi4 IMULATE & CHECK NXD 
—-437E THs IMULA CK 
| 43s 146 TMU. CK 
| we T4 MULA CK 
| B02 TSO CHECK THAT STOPS ALL CONTROL ACTION ON SOFT ERROR 
«MET TS1 CHECK THAT RK1 TS ON SOFT ERROR WHEN SSE & IDE ARE SET 
| 4738 CK 
ee 
4976 


B83 
oa 
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&2-SEP-76 O08 TABLE OF CONTENTS 


Ts? ¢ “Routine POLLING LOGIC 


Er 4 TTING ae 
ae Hie ot Be BE: REE, no 
TYERM: 


gO, SOR Pe SAGE ROUT er SEC, SUR, CYL, DRIVE 
: SHIFT R sea 
CHKHE : CK 


FOR 
DRESET: DRIVE RESET 
pea HECK SIN" INE 

INT: Lee yrerauer ROUTINE 
CHKCRDY: CK READY 


CON. RESET: CONTROL REST ROUTINE 
CNT. RDY: uit FOR CONTROL READY ROUTINE 


TO DECIMAL AND TYPE ROUTINE 


a ol cai (ASCII) AND TYPE 


ie BOuN ae UP ROUTINES 
ERROR ERROR DATA Cor POINTERS 
ERROR HEADERS 


SES 0017 


en 


ee 


ok p jhe 


OZRK 


‘KD. P 


If O WD IOUS lute 


tm ~aeFas 5 Gare 


1D “cru 
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adi @ Meta 


;SPROGRAN BY JIM KAPADIA 


SSTHIS PROGRAM WAS ASSEMBLED USING THE PDP-i1 MAINDEC SYSMAC 
; BPACKAGE (MAINDEC-11-DZQAC-Ce), SEPT 14, 1976. 


| SPROGRAN REVISED BYTOM SAUYER, MARCH, 1976 


Ne 
COOP ON ST IN SWR<7:0> 
DROP THE DRIVE IF MORE THAN 5 ERRORS 


; #REV 1SEE AUGUST: 1976 
-SBTTL BOPRATIONEL Sat SWITCH SETTINGS 

i SWITCH USE 

3 1S 

;# 14 

iS { EN 

ii i Tone TO PREVIOUS 'SCOPE’ STATEMENT 
Le ! 

3% 

3% 

3% 


5 AE A aa aR AR AR AE EE AE RR AEE EE dE a aE A a REE EEE EEE EE 
;YOU ARE ADVISED TO READ THE DOCUMENT BEFORE USING THIS PROGRAM. 


FHS SUE SEE HB RSW DA SIRS 

: cbuLDY Lbs 16 Apaey PINPOINTING OF THE FAULT 
SEFASEAASSASLSSASLLALELERLERA SAA RLAAASARARSLELRALEARLERRAAARRERASRERE 

‘SBTTL BASIC DEFINITIONS 

-#INITIAL ADDRESS OF THE STACK POINTER *#* 1100 ### 

érack= 1100 

-EQUIV MT, ERROR : BASIC DEFINITION OF ERROR CALL 

EQUIV I0T, SCOPE ::BASIC DEFINITION OF SCOPE CALL 

j AMISCELLANEOUS DEFINITIONS 


T= 336006 FOR FOR HORIZONTAL TAB 
LF= i LINE FEED 


SES 0018 


GOe 


SES 0019 


a g 

y 3 
ge tee 
eee es 
Bou “o. De Ox or a O-uUMrTNWwr 
coe Bese iat clatctidchtatat 
4 a srrereteceretere 5 GG 
SO, SEH Spe a4 
ooR divddade*e CREE EEEE 
wal Dhdg Epepeeeess | SSEReEEE 
Sse he iy 


SEE STSS Sin 


eee e eee 


:06 PAGE 2 
STER” SWITCH DEFINITIONS 


ONS 
;*GENERAL PURPOSE REGISTER DEFINIT 
IORITY LEVEL DEFINITIONS 


= as & PEER EEE, 
S2 paguep 21 ae 
ee hit QevgEwenen EOPSERERs PE Sepc occ, SITET 
Bow Bey ud Se TTTTUTT TTT PTET = 
bg aeniztdn Tassargacas Tebbenee Gaszaavumaccsssssssss 
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ae GREE ee 


) HRALSUBSLBGBSLCLLOLPL SAI LSRGRSKKTLAERFSSYISSSS SSIs 


Ce ham ham hat hem bie hae ae hae am hee hae ae 
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Pll 


MAINDEC-11-DZRKK-D 


ee + ee - -  -  - a - -———-—— 


pa re ee 


HOe2 


DORE PLL  ee-sep-re pares TO) Bere Der Ent EONs 


113 
114 
11S 
i 
1 100000 
118 040000 
113 020000 
120 010000 
lel 004000 
lee 
is : 1000 
90400 
Se 00200 
1 0001 
i Bo0040 
128 000020 
129 000010 
130 009004 
131 000002 
132 000001 
133 
134 
138 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 ooooo4 
146 000010 
147 000014 
i D000 14 
l 000014 
i 000020 
12 300050 
153 000034 
13 000060 
i tee 
157 
158 
159 
160 


.EQUIV SWO1,SW1 

“EQUIV §wO0; SwO 

*DATA BI INITIONS (BITOO TO BITS) 
are 1oBbo 
BITI4= 
BIT13= 25000 
BITl2= 10000 
BIT1l= 4000 
BIT10= 2000 
elie: So 

TO8= 
BiT0e= 
Biipee | 4p” 
BITO4= 20 
BIT 10 
BITOe= 4 
BITOl= e2 
BIT00= 1 

-EQUIV BIT09,BIT9 
“EQUIV iT : iT 
“EQUIV BITO7; 
“EQUIV BITOb; BITS 
“EQUIV BITOS,BITS 
“EQUIV 1104, 8174 
“EQUIV BI BITS 
“EQUIV BITO2,BITe 
“EQUIV BITOI;BITI 
-EQUIV BITOO,BITO 
-*BASIC “CPU TRAP VECTOR ADDRESSES 
bpevees 4 ;: TIME OUT AND OTHER ERRORS 
RESVECS 19 ; |RESERVED AND ILLEGAL INSTRUCTIONS 

= +3 
TRIVEC 14 + TRACe TRAP 
€= 14 *:BREAKPOINT TRAP (BPT) 
IOTVEC= 20 ::INPUT/OUTPUT TRAP (I0T) **SCOPE## 
PURVEC e4 33 FAI 
EMT ce 30 Fine te (EMT) ##ERROR## 
= 


fe & arranger 
Thiet. Hits NTERRUPY REQUEST VECTOR 


-SBTTL TRAP CATCHER 


A, UNUSED Love CATCH ICLEGAL, TREPS BOG INTERRUPTS. 
NTERRUPTS 


j#LOCATION, Q\cONTAINS t 70" CATCH 1RPR RLY LOADED VECTORS 


OISPREG: “ie ;; SOFTWARE DISPLAY REGISTER 
;;SOFTWARE SWITCH REGISTER 


“WORD 
“SETHE STERTING.RODRESS ED) 19 sraRTING ADDRESS OF PROGRAR 


-SBTTL ACT11 HOOKS 


SES 0020 


---- eo er -- or +? o> 
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102 


SES 0021 


ss RRAREARSRAAA REE RAAALALALASAESARELELAE LALA LESLARLEFELALELLALEL LATER 


Yoga 


meee ee we eee. oe ss Ce 


: HOOKS “seidce: BY ACTLI ae 
SENDAD ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 


;;2)SET LOC.S2 TO ZERO 
3; RESTORE PC 


--- oo + -- ee -—--— os----------- ~Crr------ - - ---—-- -- - + 


JOe2 
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DOZRKKD.P11 347 COMMON TAGS 


22-SEP-76 08 SEG O0ee 
178 .SBTTL COMMON TAGS 
180 5 5 LRRARRAAEAELA ARAL LALA LAL ERA ARAL A LALA RE RA AE AAA ALALALSELALLLE LESS 
81 :*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:#USED IN THE PROGRAM. 
-21100 
SCNTAG: :;START OF COMMON T 


SPASS: : CONTAINS PASS ¢ 
te: LeaManNs Ti 
::CONTAINS SUBTEST aAgERATION COUNT 
a TH SO URN FOR ERRORS 

:! CONTA Ne Foree ERRORS DeTERTED 
CONTAINS ITEM CONTROL BYTE 

t ONTAINS MAX. ERRORS PER Tes! i 
bTEONTRING ABDRESE OF "coon -DATA™” 


;;CONTAINS ADDRESS OF ’BAD’ DATA 
$3 5 ‘ * DATA 


nt 
YT ? NUMBER 
Y LAG 


Bs 


Se GRITRE URN TRREEES 
= 
32 


O— 0 Db -= b> bh b= B+ b+ OD 2 pO pH 


MORKREVERPRGS Hn eoF 2ONSS 
ea 


Rees ONdOO00000 
ba 





0011 
0011 . 
Bott Be 
0011 WORD 
ait ies 
0011 a 
a “BYTE 
1 -HOR® 
i “WORD 
O11 - WORD 
200 aati . WORD ;;RESERVED--NOT TO BE USED 
ete cae SUTOR: BY ;;AUTOMATIC MODE INDICATOR 
203 B01 INTAG: ne : INTERRUPT MODE INDICATOR 
se i Pie ily HM | HIER ALL AIEEE 
% Bis na: ee iT A 
209 001150 STPS: 177564 >; TTY PRINTER STATUS REG. ADDRESS 
aK Boies STPB: 177566 51Ty PRINTER P connec Tek FOR F 5 
ip BLES SFILcS: ‘EVE z, HCOMTAING OE TLLER CHARA TEE cuts 
at Batis? Sr eeLE: BYTE 2 + TP ERINALCAVATLABLES FLAG (BIT C87 SaeYES) 
iS 001160 SREGAD: ‘WORD 0 CONTAINS THE RODRESS FROM 
ig :WHICH (SREGO) OBTAINED 
17? o0116e2 SREGO: .WORD O 3s CONTAINS (($REGAD) +0) 
18 OO1164 SREG1: :WORD 0 CONTAINS (($REGAD) +2) 
19 001166 Ge: WORD  Souaine  Seeg 0 
j Bie Se ears (gees sim 
225 1176 SREGE: “HORD : FONTAINE ({SREGAD) 244) 
001 SREG7: .WORD : is CONTAINS (($REGAD) +16) 
225 001 SREGIO: - WORD : CONTA NS ((§RE +20) 
BS Bie ao iSite set 
228 001210 SESCAPE:0 23E ON ERROR ADDRESS 
Biel see een Cie, «HEIL 
Bi 1214 SLF:  :ASCIZ2 «12> + 
se . PEPUCTEESSTECTESETTT TTT TTT TTT TTTSTeTTTTOT TTT TTT TTT TTT TTT TT 


3% 
005015 051104 053111 MSGi: .ASCIZ <15><12>/DRIVE PRESNT/ 


Tr 
& 
8 
— 
Tw 
— 
o 


ac 


at ea pal 27( 1006) on Toe 16:06 PAGE & 
OZRKKD.P11 22-SEP-76 08:4 C TAGS 
234 01224 020105 ent. 051505 


2e3S OO0le3ze OSel116 
236 001236 : ByeN 
-ASCIZ 


es 1636 00h, 047516 O42516 MSGe: 
33 


O41412 OS2116 MSG3: .ASCIZ <15)<«12>/CNT RDY DIDN’T SET/ 
OS4S04 patos 


«15><12> /NONE/ 


2 
3 
R 
a5 


v? 
B ie 
Ei 
Vo 


OSs" OS3111 MSG4: .ASCIZ <15><12>/DRIVE / 





SET. TO TE A PARTICULAR 
TERROR C onDT TON 


244 
245 
eve 001300 620105 
sie pot p mots pagtis Ones 14 MSGS: .ASCII <15><12>/ALL DRVS- 
231 001315 noe 288 051104 OSO117 MSG: .ASCIZ / DROPD/<15><12> 
53 .EVEN 
255 ;RK11 REGISTERS 
5e5 ITE VER BOLOWD THE CONTENTS BF THE BPPROPRIATE. POINTERS SHOULD” 
oe tNSOYFIED 80 that THE C gr SS IS USED. 
Set 001326 177400 RKDS: iF yao 
262 001330 177402 RKER: 177402 
263 001332 177404 RKCS: 1 
264 001334 177406 RKWe: 1 
265 001 177410 RKBA: 17741 
zoe ooi3G i77aie RKDA: 17741 
367 1 17741 RKDB: 17741 
e76 ;TAGS AND GENERAL DATA AREA 
272 ae” 
Ae SIMUL: 0 FLAG TO BE SET TO 1 WHEN ON SIMULATOR 
Bre Dai VAD: 6 i Tals ROORES oF THE OR i a TEST 
a md lide accra ee re 
go DRVPTR: 0 CONTAINS TH Fue pia TO THE DRI DRIVE VE FLAG (DRIVE 
ees nei: GENERAL, THD FOR KEEPING COUNT 
COUNT: ; COUN REGISTER 
ee COUNT: s COUNT RE GISTER USED FOR "DRESET’ SUBROUTINE 
LG1: : 
558 


coc 


tee 11-DZRKK-D 
OZRKKD.P11 22-SEP-76 08:4 


SENRHEDNH SSE ORAEONS 6 


WWW WWIII) 
2 Oo ee 
WOnNMU CWO 


BSSROO TEASE 





001372 000100 


ce 


001402 


000220 
001404 
Qoioe 00000 
000000 
oococo 


001410 
001412 
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COMMON TAGS 


SEEKO: 100 AINS ADDRESS OF CYLINDE 
SEEKS: 188Ho ave SURES? $F Sei i 
tee 


L RORDALLY INT oN NTERRUBTS. 
© BESINGATED 


;SHOULD BE 
Hie eR nh IF TT 1S CHANGED 
RKVEC: 220 ; CONT TA NST OR ADDRESS 19 WHICH 


INS THE NORMAL VECT 
*RKI1 IN TERRLPTS, IF THIS IS NOT SO 
‘THIS WORD TO CONTAIN MODIFIED veerOR’ ADDRESS. 


FFLAG: 
VN: ;USED TO DETERMINE WHICH OF RK-OSF DRIVES ACTIVE 
30 IF _EVEN DRIVE 
371 IF ODD DRIVE 
DDPCH: 0 ;IF PROGRAM LOADED FROM RKOS, CONTAINS 
sADDRESS OF DRIVE WITH RKDP 
DRIVS: 0 ;CONTAINS THE NUMBER OF DRIVES PRESENT 


; THE FLAGS PEO (B ’ 0) ARE SET TO 1 TO INDICATE THAT A PARTICULAR DRIVE 
1S PRE BE TESTED. BIT 12, IF SET, INDICATES THAT THE DRIVE 
: WAS DROBP MaXTRUN ALLOWABLE NUMBER OF ERRORS OCCURED ON THAT 
IF MORE ERRORS OCCUR IN THE HARDWARE POLLING TEST (LAST) 

THEN ALL DRIVES ARE DROPPED. BUT BIT 12 IS NOT SET. 
DRIVO: O ;FLAG SET TO 1 WHEN DRIVE O PRESENT 
ORIVI: O sFOR DRIVE 1 
Baivs: 8 Ee DAVE § 
V4: ;FOR 4 
DRIVS: sFOR DRIVE S 
BRIS: FOR BRIVE 5 
TSEFLG: O 
PHYDRV: O 
SIZYET: 0 


SEG 0024 
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PEE F 


001442 


Sei RRR ER PR ERE AAS dda dos Ula lke Eee St 


MOe 
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ERROR POINTER TABLE 


.SBTTL ERROR POINTER TABLE 


tSTHE INE RefdOn Te RED BY BIN FoR EF EACH ERROR THAT CAN _ 
5 ost INED BY NG THE INDEX NUMBER FOUND IN 
HeLOcaTION SITE S NUMBER CATES WHICH ITEM IN THE TABLE IS PERTINENT. 
3 #NO STEM IS 0 tHE. ONLY PERTINENT DATA _IS (SERRPC). 
+ INOTES: Each ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
3% 5 380 POINT TO T me MESSAGE 
;* DT POINTS TOT 
3% DF + POINTS TO THE BATA FORMAT 
SERRTB 


iUGEo IN Tula. PRouRan_ AR ERROR Chut” IN The” PROGR esa sesssch 


[ren fereee IN Te Gon! ae peer 1’ IN THE 
AEE i THE ERROR 


PROGRAM CORRESPONDS 
ih cle far POOR Sie "5 SR NRG etd "Ba 


i eDLaTely “AETER POI INTER FF. THE een BLOCK fic WILL BE TYPED OUT 


: IATELY 
"DT eee’ Lari i T fenoRy TIONS 
> THE TNFORRETID EVR oe (LIKE PC, CONTENTS 


OF RKCS ETC.) OIL 


ROW CONTAINING SERVES AS A TERMINATOR. 
APE ps ns epee HR SO 
; OCCUR CUR ON’ THE TELETYPE. 

TIME OUT ON RK REG 

sesese §=§©177400 

INOTE THAT ##e#ee WOULD BE THE ACTUAL PC WHERE "ERROR 1° IS LOCATED. 


TE EPR OTON ATTA Ite COMER BYTE ENCODED THE ERROR CALL IS AN 'ENT’ 
Tens, IN THe TH Fore LOWER BYTE ENCODED TO PROVIDE INDEXING TO THE 


MOS Ere te, Fe RIO poe 


;ERROR ITEMS TABLE 


SEG O0eS 
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SRBIRREERE RSE SERS Oe Bees 


a cate 11 
i 001476 Teas 
i 001500 900000 
41 


£s 
ro 


=< 
OU NOU 


+ 
-- 
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ERROR POINTER TABLE 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


1 
a 


;"SIN’ IS SET 
RKCS RKER RKDS = RKDA 
ISERRPC SREGO SREG1 SREG2 SREG3 


;CNTRL ROY DIDN’T SET ON READ/FMT FROM DISK ADDRESS 
RK RKER RK 

;RKDA AFTER 

;PC T REC 

;SERRPC SREGO S§REGI 


;RKDS ERROR 
;PC RKDS 
;SERRPC SREGO 


ieee So 


SERRPC SREGO  SREG) 


De Blo BE, Bel 


IT NOT SET 


ieee Sicey BER, BOE, BO, 


SEG 0026 


Lad 


pe 
CIRRPSOLSSESER PORE G dad Valal PIA ow ORT Lhe BOO MIO ONO SS AES fe 
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BSEé 


i 


Bea 


: 


BD 
Nie 


e+e +66 


SSBB BEBE 
epee «B99 See 


S ee Ge i 


our 
RE 
= 


ed 


8888 


+0 +b-b- 


ERROR 


; ITEM 


; ITEM 


; ITEM 


; ITEM 
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POINTER iter 

11 
ea 3°SOK’ DID NOT SET 

34 :PC RK 
Tl :SERRPC $REGO 
12 
EM2S =; "SEC _COUNTR’ DIDN’T COUNT TO 0 
DH3S Ss 3 PC SEC-CNTR 
gr : SERRPC 
13 

;'SEC COUNTR’ DIDN’T INCREMENT 
:PC PRSNT-COUNT NXT-COUNT 

pre :SERRPC $REGO SREGI 
14 
EM37 ~—«; “SECTOR COUNTER’ INCREMENTED WRONG 
OH4 :PC EXPCTD RECVD 
gre ; SERRPC GO S$REGI 
1s 
EM4O  ;DION’T GET SC=SA FOR THIS SECTOR 
DHYO 80=— ss PC SECTOR RKDS 
pre *SERRPC SREGO  SREG1 
1b 

l sERROR-"R/W/S ROY’ SHOULD BE SET 

RKDS 

Tl SERRPC $REGO 
17 

13. ;RKBA ERROR : : 

:PC EXPCT RECVD 

OTe :SERRPC S$REGO SREG! 


XPECTED RK11 INTERRUPT 
: SERRPC 









MAI Coto? 


OZRK e2-SEP-7E bes4s Litaogpes ERROR 
ong ; ITEM 
25s BBles | Bessze 
Boy bolees | Dodsoe 
Ee ; ITEM 
= poleee 02601 

Be 


UTUN UNO innit 

0 02 2 b= B= B= b= 2 

0 NOU £ tue 
: 


PENCE ES SaREOGA SE SMT IS he TOUTE ots 
BR 





a 
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POINTER TABLE 


21 


gos 


GoM y OGOM RY OG 
nts yen 


3 CNTRL ah DION’T SET AFTER SEEK OR ORIVE RESET 
RKER RKDS DA 
: SERRPC SRECO SREG1 SREG2  SREG3. 


cE Ee SEL aN SR OU eT 
; SREGO SREG1 SREG2 SREG3 


;RKER al ON SEEK OR DRIVE RESET 


iSEmeec Seed | SAEGL SHES 


RKCS CHANGED AFTER FUNCTION WAS DONE 
PC orks RECVO 
SERRPC GO SREG) 


° 
, 


;"R/W/S nr DID NOT CLEAR 
:PC RKCS RKOS 
;SERRPC SREGO SREG1 SREG2 


;"R/W/S ROY’ DIDN'T SET AF OR DRIVE RESET 
3PC RKCS oS seeKOn 


;SERRPC SREGO SREG1 SREG2  SREG3 


ipo “ExpetD REGO 
;SERRPC $REGO SREG! 


§ aRNTRL ROY’ DION’T CLEAR are GO WAS SET 
;SERRPC SRE SREG] SREG2 


SEG 0028 
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88 


8 8 88 
Js 


SB SRE ORS Bala lolal cineca ene Eee ea a 


uy 
8 


Sa Bs: 


ar 
rm 


BRO RR RSA SRE ae 


o 
er 
oO 
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ERROR POINTER TABLE 


31 


DO3 


16:06 PAGE le 


NTRL RO *T SET ON DOING WRITE/FMT STARTING 
irROM <OSK-AORES 


; PC CS _RKER  RKDS KDA 
;ORVe CYL <DSK-ADRES> SUR SECTR 
SERRPC SRE SRE 


ISREGY SREGS © SREGG 


HE’ OR 'ERR’ ON WRITE/FMT STARTING FROM 
3 <OSK “ORES? a 

:DRVa vt <DSK-ADRES> SUR SECTR 
SSERRPC $REGO $REG]  SREGE SREG3 
:SREGY SREGS SREGG SREG 


Po exper: Bava ON are wre Per 


TR 
; Ge S$REG3 
;SREGY SREGS SREG6 


sRKWC O1DN OVERFLOW ON WRITE OR WRITE FORMAT 


PC 
;SERRPC SRE 


I WRONG ON WRITE OR WRITE FORMAT 
oe CvO 
RRPC Gl 


i RKER SE. WRITE /READ/F ORMAT 
:SERRPC SRE ShECL Shree 


oe Ee = ee 


FREERE SOCOM CO NESS adh EGO HS AAO BR OR Pees 


z 
aR 


PMOOrrrmrmwrm J 


0 0+ 0—= 0+ b+ + 0 OB 
WMI US totue- 
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08:47 ERROR PO 


;ITEMN §640 


Free 


sITEM = 4 


; ITEM 


E03 


16:06 PAGE 13 
INTER TABLE 


SEG 0030 


RO" TMEREERITER YEON MEO EL FEHO Ep 
‘RECVD: DRVs CYL 


BES seecs ERD HE RHE ee 


ja 7 OVERFLOW ON READ OR READ FORMAT 
:SERRPC SREGO SREGI 


3 BABA TNE RATED HONG ON READ OR READ FORMAT 


SERRPC SREGO SREGI 


ieee BE Be, Be 


;°CNTRL RDY’ DIDN'T SET ON DOING READ/FMT STARTING 
;_FROM ym 

‘Ove cv ( “pores aR SECTR 

: SERRPC SREG1 SRE SREG3 

:SREGY SRE SREGE S$REG 

;"HE® OR? gee SET ON READ/FMT STARTING 

“RCS 

;ORVS “ADRES At SECTR 

: G1 $REG2 $§REG3 

:$REGY SREGS SREGE SREG 


03 


ak att ane noah 27(1006) O4-OCT-76 16:06 PAGE 14 
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22-SEP-76 08:4 ERROR POINTER TABLE SEO 003: 

667 002120 900000 0 
668 
gee SITEM 47 
671 002122 027320 EN72  ;WRONG DRIVE ID IN RKDS AFTER SEEK 
B72 OOele4 031745 tHY «=s«:PC. OSCE XPCT.”~— RECVD 
B73 O0eiee O31 OTe !SERRPC $REGO Gl 
674 002130 6 
675 
a) ;ITEM 50 
678 002132 027362 EN73  ;HAROWARE POLL, DRIVE ID BITS(13-15) SHOULD BE CLEAR 

es 
fo ele Bey Bid! jer 
1 OO0el1 
a2 
53 ITEM SI 

2142 : INTERRUPTING DRIVE # NOT PRESENT 
pee pestis pees + BRROMARE TES 
687 OO2l46 031622 O71 :SERRPC $REGO 
p88 002180 000000 0 
30 ITEM 52 
692 002152 027504 EM75 ; "DRIVE #’ DID NOT INTERRUPT DURING HARDWARE POLL 
boy posiee paiese pt SERnec seeeor 
bs poste eer : 
627 ITEM 53 
99 p02162 “i8QP DID.NOT SET AFTER WAS DONE 
a ie be Ht we ed 
70s Basi se 
ta ;ITEM 864 

172 17 : KDR AFTER ’DRIVE RESET’ 

S win Bo Oop TE 
708 0021 T2  jSERRPC SREGO SREGI 
799 
710 
7 ITEM SS 
713 DATA ERROR AT WORDS 
at i 188 ibe WerpeT RECWD 
7i5 1660 126 | SERRPC SReed | SREGI 
2 000000 
71 ITEM 56 

002212 027677 EMIO1 — ;CNTRL ROY DID NOT SET AETER READ CHECK 
721 OHHH =: PC RKDS RK 


14 
16 031640 DT20 ; SERRPC SRECO SRECL $REG2 G3 


BOAKEE Pit 


SIIIIIW ISS LE RATERS AUS SASF TSR2 SSO CERO STANTS 


11-DZRKK-D 


002220 


BasssS 


ol Dy Gs & 


22-SEP-76 


oco000 


B 
E 


1 


7 
+2 
i 


S 
N 
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; ITEM 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


2 & °3e8 


os? 
= 
ay) 


22 6 


t 


06 
ABLE 


eee Se, EROS 
'SERRPC SRE SREG1 SREGe 


;'CSE’ ON READ CHECK 
>SERRPC S$REGO 


$feauc a a — ON READ CHECK OR WRITE CHECK 
SERRPC SREGO SREG) 


;RKDA INCREMENTED WRONG ON READ CHECK 
;PC pres RECVD 
RRPC GO SREGI 


;RKBA CHANGED AFTER READ CHECK 
;PC EXPCT RECVD 
;SERRPC SREGO SREGI 


toe peeT RE AFTER o CHECK 
‘Bewrc Sfc0 | Be 


ies my gD NOT SET gt sted pee 
;SERRPC SREGO SREG1 SREC2 $REG3 


is OR ERR BIT Sheet eal WRITE CHECK 
: SERRPC oe Gl 


SEG 0032 


eee eee 


MAIN cs 11-DZRKK- macy 27( 1006) o4-ocT-76 16:06 PAGE lt ' 
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22-SEP-76 

779 002320 000000 0 

780 
781 ;ITEM 8667 
res OE SEE Bite ; WRITE Ce CA aos 

785 002326 031660 OTe  SERRPC SREGO S$REG1 SREGEe 

| 002330 000000 0 

= sITEM 70 

730 1 113 s BKDR I ON WRITE CHECK 
i ee Ba ieee BES HET 
733 002340 000000 0 
734 
73S ;ITEM 371 
23 Od02342 930354 EM114  ;RKBA INCREMENTED WRONG ON WRITE CHECK 
738 O0e344 031745 :PC ExPCT RECVD 
733 p31 30 pre :SERRPC SREGO  SREGI 
a ;ITEM 8672 

804 00e3S2 pan EM115 i pxBe INGASHENTED ute IBA SET 
Boe BeSaee Ba1630 T2 : SERRPC GO Gl 
oe 00e360 000000 0 
tt ;ITEM 73 
aH Goes Giees! aH ;HRONG NERO. MEMORY ¥ LOCATION EOD WITH IBA SET 
él 1660 OT26 ; SERRPC SREGO SREG1 

1. 002370 000000 0 

18 ;ITEM 8674 

18 poet E panes aye ‘Belt bmp er INTERRUPT WHEN IDE WAS SET 
poes7e 031622 DT1 ;SERRPC SREGO 
B21 000000 0 

: ;ITEM 8675 

pees 7 peg KLE O1p Wat INTERRUPT AFTER SEEK WAS INITIATED 

He Gis ft Hime Bl 

e3 ;ITEM 76 

832 Goes Gs604 pried sgcP SET EE ORE SEEK COMPLETED 

Ee 16 031 BT ;SERRPC SREGO 


a cc — Eo ee 


MAINDEC-11-DZRKK 
OZRKKD.P11 ee 


002420 


ue 


m= a Bo ie 


f 


BESS RRESR Bsa od sn aeuene oe CORUM T ER Baan Tome Some 


002512 


pecs 27( 1006) 
76 08:4 


002514 033 


I03 
ERROR PORTER fRELE 


0 
ITEM 77 | 
piige poe or INTERRUPT AFTER SEEK COMPLETED | 
pres SREG1  SREG2 
sITEM 100 
123 igre "se NOT CLEAR ’SCP’ BIT 
ae ; SERRPC 


;ITEM 101 
pies tS bmp at INTERRUPT AFTER READ WAS DONE 
gr + SERRPC SREGO 


EM12S ;CNTRL RESET DID NOT CLEAR REGISTER 
;PC REGADD RECVD 
Bre ;SERRPC SREGO S$REG] 


;ITEM 103 
EM1 ;RK11 DID_NOT sal AT CPU LEVEL 


DH1 ;PC LENE 
OTe ;SERRPC SRE SREG1 


0 
;ITEM 104 
png? spell te RAGS, WRONG CPU LEVEL 
bre SERRPC $REGO 
sITEM 105 
HI i pERR BI BIT’ DID NOT ce a 


Re ; SERRPC SRECO SRECL $REGe 


;ITEM 106 
EM131 ;HE OR ERR DID NOT SET 
DH131 ;PC RKCS RKER 


SEG 0034 


i  —— 


FREE RESRRE RRO B OS VO ee 


MAINDEC-11-DZRKK-D 


DZRKKD.P11 22-SEP-76 


- 


002S 16 
002S20 


Piri t inset Rts pint 


O0.0O0000UNW 
0+ b= 2 bo bb he he he 


NOU £ Wt 
iit 
1U 


0026 12 





031630 


031514 


opal 27(1006) 04-OCT-76 


03 


16:06 PAGE 18 


ERROR POINTER TABLE 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


OTe 
0 


;SERRPC SREGO SREGI 


;RKER ERROR 
;PC EXPCT RECVD 
;SERRPC $REGO  SREG1 


RKDA 
$REG2 


;NXC BIT DID arc. 
RK RKER 
;PC SRE Gl 


;RK11 DION’T ——" ON SOFT ERROR 
;PC RKCS_ RKER 
;SERRPC SREGO Gl 


;MEX BITS INCREMENTED WRONG IN RKCS 
: SERRPC st 


SREG1 


5 CNTRL ROY DID NQT ger AETER WRT CHK 
*SERRPC SREGO $REG2 


pee Nexcgoe KDA 
SERRPC SREGO ShECl Shee SREG3 


SDATA ERROS ON TREE pron TSK e TTY 
RECVD RKC 
t SERRPC SRECO SREG1 S$REG2 


;"DRIVE #’ PRESENT, BUT NOT SPECIFIED 


SEG 0035 


ee es ee 


MAINDEC- os 


DZRKKD.P 


347 


ak A eal eal Ue 


22-SEP-76 


MACY11 27(1006) 
08:47 


04-OCT-76 
ERROR POINTER TABLE 


; ITEM 


ITEM 


DH74 
OT 
0 


117 


EMi1 
Te 
0 


120 
‘todos 


6:06 


KO3 


PAGE 19 


;PC DRIVE & 
SERRPC 


$REGO 


see ERROR 


HSerrec §REGO — SREGL 


SEG 0036 


LO3 


aoe ge ‘ite hdl 27(1006) O4-0CT-76 16:06 PAGE 20 
OZRKKD.P 22-SEP-76 08:4 ERROR POINTER TABLE SEG 0037 


;CLEAR THE BUS 


lh iio Tis Oa fees 


aut 


001100 i sEIRST LOCATION a Q BE CLEARED 
>:CLEAR MEMORY LOCATION 
001140 su my ee 
001374 BNE .-6 ;;LOOP BACK IF NO 
012706 001100 #STACK, SP ::SETUP THE STACK POINTER 
; INITIAL Se A FEW VECTORS 
012737 Oe204 000020 MOV en gaiOTV c 3 10T OT VECTOR FOR SCOPE ROUTINE 
012737 oo00022 
i 022320 ae MOV Lene TN i FOR ERROR ROUTINE 
1 Nov FON 4 VECTOR FOR TRAP CALLS 
i 74 Soooss Oy Sel aa slEveL 7 FAILURE VECTOR 
pope ee nov £40 NeuRVE eR ve ;;CEVEL 7 
CLR 
MO 


aS 


RUE res H ERROR AOORESS 


SPREE RCS SE SURE MESO RT OR a Ia see Re ee 
Te | ft ee 


ats : 002756 vangtes ase ae FOR SCOPE 
Bisa? ppe7es OOLLI nov ite, if Pe ole ne 
;;SIZE FOR A TTCH reaté TER If Rot Fob FOUND 
se me woh Beyer te -( Lod 
813548 oo0004 Noy ort Wes,c(eP) ve yetr TOR 
012737 177570 001140 MOV sDSWR, SWR i aerup FOR A HARDWARE SWICH REGISTER 
rl 177870 00114 MOV wODISE, DISPLAY j "AND A HARDWARE DISPLAY GISTER 
001012 , shee GRE ty TRY co REreRenCe BUT TRAE Occ CURRED 
+O THE HARDWARE. SUR Is Note 
000403 SR 65$ BRANCH IF NO MEOUT 
003040 64S: Hoy monrih ::SET UP FOR SRAP 
i 900176 901140 65S: HOV sSHREG, SUR iPOINT TO SOFTWARE SWR 
: biSe37 o00004 66S: MOV topse SeRAGEE ;;RESTORE ERROR VECTOR 
{  eTrE Pe E PROGRAN 
1 3 THE OF THE IF lest Fi 
1 005227 177777 INC 8-1 T TINE? 
1 001044 BNE 675. 
i saben seamen SBTTL GET VALUE FOR SOFTWARE slit He astiz 8 "STRING 
} 905737 oo0042 . 31 4s wie eRe I fe RUNING UNDER XXDP/ACT? 
ie BS oe athe 001140 000176 oe SiR, , #SWREG ashe suf Fon REG SELECTED? 
1011 003110 1 GT ET -SWR SETTINGS 
101¢ ile 00403 BR 70$ 
1013 oo314 il 000001 901134 598: MOVB #1, SAUTOB ;;SET AUTO-MODE INDICATOR 
101S O03l22 ooo4es "i ae 6 jsGET OVER THE 12 
ioe aonane pages: .ASCIZ O78 > /RKLL Locré’ TEST I11/<15><12> “MAINDEC-11-DZRKK-D/<CRLF> 
1018 003176 012700 001410 “Mov #ODPCH, RO 


" M03 


MAINDEC-11-DZRKK-D MACY11 27(1006) O4-OCT-76 16:06 PAGE 21 
DZRKKD 


PRSETaAIGO STAIN TR SOOT eS 


AG 


020 b= b= Bb Bs 8 Bs = bb + hd a = -> bo 2 bs bs 8 bs = 8 2 


top mad eae 
seaeeee? 
iz : 
& 
ze eae 


-Pl1l 22-SEP-76 08:47 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0038 
003202 012701 177765 MOV #-13,R1 
003206 005020 1S: CLR (RO)+ 
003% 19 Ri 
D032 1 l 
003214 177777 8-1 sFIRST START ? 
ee Hine my Eat f 
1 000004 MOV RRVEC, -(SP) ica ERROR VECTOR ADDRESS 
003226 012737 003242 O00004 MOV #2, ERRVEC : NEW vECT ADDRESS 
003234 005737 177776 TST PS : SEE F PROGRAM n CAN FERENCE THE 
oo3240 000406 BR 3$ BR IF REFERENCE DIDN’T CAUSE TRAP 
012737 000140 OO1400 2s: MOV #140, RKPRI NTERRUPTING PRIORITY TO VALUE 
ie itt ALLOW INT TERRUPT ON AN LSI-11 
903250 12716 003256 Mov #3$, (SP) 
003256 012637 000004 3S: MOV (SP)+, ERRVEC ‘RESTORE THE ERROR VECTOR 
:FIND OUT IF ACT11, *XXDP’ CHAIN OR DUMP MODE 
1 4] STARTI: MOV #DDPCH, RO 
posse pie anit MOV #-12,R1 ;CLEAR OUT DRIVE TABLE AREA 
003272 005020 iS: CLR (RO)+ 
003274 INC Ri 
001 BNE 1 
003300 1 occoc2 000041 CMPB se, 41 ;LOADED FROM AN RKOS ? 
653396 p01 a3 BNE sre :BR IF NOT 
10 Ol 000040 001410 MOV 40, DDPCH iGET DEVICE INDICATOR AND DRIVE ADDRESS OF 
Gasses iSfobe 900010 001410 CHP #10, DDPCH mel ORI NUMBER IN BYTE 40 ? 
1 001410 CLRB DDPCH : DRIVE ZERO WHICH LOADED 
oo0042 2$ TST 4 cum OR ACT11 AUTO ACCEPT ? 
ee ae ee I LER 
001410 ING FROM AN RKOS ? 
003344 001002 BNE 3$ ify F YE 
002346 137 004210 IMP sT3 FIND OUT NUMBER OF DRIVES 
DOS3eS 104401 003360 s: over sess ;TYPE ASCIZ. STRING 
003356 bo0413 BR + ASCIZ 


:+35$: .ASCIZ Tb up aut resting DRIVE DRIVE / 


poreH, sp) GET DRIVE aboReSS 


,  Rgriare.. 


I 
IZ O88 «120/70 vestietiove the Asciz 


pbpcn, <sP) ‘GET DRIVE ADDRESS 


ae - 
113716 001410 





roaeen an —— 


NO3 


~— 27(1006) O4-OCT-76 16:06 PAGE 22 
76 08:4 GET 


b= > + pb b= be 


BIS 


TT | 


a2 


BESGRAPIN eae wee OS 


i=) 
oo 


D- OBB UR EO 


NOW £ 
S +=4 


—s— 





0 b= b= b= b= b= 0 0 & = = 0 b= 0 = F< = 8 - bo Bb = BB = 0 = B= BP FB 0 0-2 = = = = + 


0 0+ 0 = 6 += 0 +0 b= 0-0 =o +002 O--o + 0 OO - + = = + + 





VALUE FOR SOFTWARE SWITCH REGISTER 
; TYPE THE DRIVE ADORESS 
a be. Ses s-heepINe ZEROS 


48g T OVER THE ASC 
j ,898: Bsc1z 7 HALT PROGRAM, bé RKDP PACK Bick Gino REPLACE I17/<15><12> 


24° tL DET OVER tHe aactz 


ee 


a 


a 


8 
: 


AE IR HR SPT SEE oe 


S 
a 


: *DRIVS TO B TSTD?’ 
io bow sonve ab CAR. RET. SHOULD BE TYPED TO TERMINATE THE LIST. 
ee ee 

me 

$3 Ute ASC 

pigs: PASCI2Z * diag ibe oven f ez, 

mov (SP)+,R0 ee ADRES OF ASCII STRING 
” BIC Co, ie, ; 5 is 

my aR 
“| eee 

ihe fia. , Mb, POINTER. T9 

me =| Rca Eaves 

a : ve J 10 abn 6 
= BEG Pr 2 Re EXIT. NO RIV ORI VES INDICATED. 

: TYPE 7$ ;;TYPE_ASCIZ STR 

aes Fen HRB 
al : sie acer ie IN BSK STION 
118:  MOVB El 'GET NEXT CHAR - oF onives PRESENT 


.ASCIZ /WITH A WORK PACK; CLEAR LOCATION 40, AND RESTART PROGRAM/ 


THUS IF 2 DRIVES 0,1 ARE PRESENT: 


BO4 





- SEG 0040 


: ~ 
& 
. S B Rao 
“e mas: 3 : mae 
s pee fy wer ii ? Ff 
ra o tery SS nn ts & rw) ta ase w 
ial FS See uz — ‘= ar caw 
R gyi BORE eee eo, ew 7 '§ m. oe ve 
5 2 9805 ebrckEs erator - Be 2 a an 
cake Saeioe atnrengeey B45 9 zu mene a 
Bi Be Su oS Oty ee Suite ae ee “e RAN Fg 
Sgt kad goo Shag, pos Hees SF ae dad ff - 
g gabe ESS BERN. Bee Ege ae a = sr ae 
3 eae : 
5 Am. YF 
Ss 2 an - b 4 
tg, 8 & dg dee 2, 3s 
oa Ssemeserescasesecenes Se axe aoeai, sh Siaaad tet Sea 
Cy Bina meRe aa Gowes Be Eke dake Se SSSR RSTIISSES 
Bz g 
a se a $ a 


901440 é73: 


UHC i = bd MG 
CE ec Ee Se 


° 
z" : at on 
ee Ee 


ee MARABRRBRS oF SF PPS PT RAMRARRA RN GGhoD SHOOT CRAR AR Baas 
3 


-~ 


MACYL1 2711006) 


Nee ee Re ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee Ree De Dee Kee Dee Dee he oe Ce) 
Oe ee Nee ee oe ee ee ee ee ae ee ee De ee er ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee oe ee ee De ee ee ee ee ee ee ee oe oe oe ae 








ow Ce eee ee ee ee 


0-20 +b <0 -<—-2 B-< —-< b-< p< p< © -9 -2 B-< 


RSE BiB SRR Pee BBR S 
Be 
at 


1 


~ 
tw 
-- 
—-Ow 


EERE Oe VOPR 


= 0 <b 6 — b= 0 + <b b+ 2 


tb 


BaCHAN NR 


it "Se Rep 


912703 
00% 


3 


z 


58 
fS ib 


OSE 


888 


7% pe 27( 1006) oft ° 


004304 
020734 2s: 


000200 175006 3$: 


001412 


4§: 


001412 


ss: 


001434 ST4: 
001412 


021650 
0 TOC! 001354 1S: 
Boi ae2 : 
001350 


004462 000004 
OO4S26 174722 


T-76_ 1 
UE FOR 


MOV 
JSR 


gg 


22938 
am 


a8 


BYS BA saaRTzE 


% 


6: 24 
i0e be SWITCH REGISTER 
82$,R3 
pC, Henn UNDER SORCHANGAL UMBBE. st ORZVE 
=RKDA HAD TO BE ADRESED BUT 
537 HAS FOUND THAT THE DRIVE NO 
tual WAS WRITTEN COULD NOT BE READ BACK 
s CORRE 
st 
8200, SRKDS ;CHECK IF "DRY’ BIT IS SET, IF SET DRIVE IS 
; PRESENT 
4g : 
DRIVS :IF PRESENT, INCREMENT # OF DRIVES 
(Re) :SET UP FLAG INDICATING THIS DRIVE PRESENT 
R4, -(SP) 
(R2)+ ;SHIFT POINTER TO NXT DRIVE INDICATOR 
#20000,R1 :SET UP ADDRESS FOR THE NEXT DRIVE 
Ri ‘HAVE U CHECKED FOR ALL 8 DRIVES 
1$ 
DRIVS 
ST4 
ST4 :GO CHECK THE DRIVE INDEPENDENT 
: CONTROLLER L 
(SP) .R3 :GET PC TIMEOUT OCCURED 
(SB)h (SP)+ sRESTORE STACK | 
Pc, TYERM :GO TYPE ERROR MESSAGE 
:HHILE CHECKING FOR THE NUMBER 
>RKDS Bnd RKDA HAD TO BE REFERENCED, TIMEOUT 
‘OCCURED ON REFERENCING.PC IN THE ERROR 
*MESSAGE INDICATES WHERE THE TIMEOUT OCCURED. 
TSEFLG 
DRIVS 
PC WATIME 
sep 
VO, ORVPTR 
; INITIALIZE THE NO. OF DRIVES 
“THAT HAVE BEEN CHECKED 
DRIVAD ‘INITIALIZE DRIVE ADDRESS TO 
; THe FIRST DRIVE 
#BADTMO, da4 SET TINE OUT CTOR FOR UNEXPECTED 
SBADINT,ORKVEC SET UP RK11 INTERRUPT VECTOR FOR 


1 
;UNEXPECTED INTERRUPTS FROM RK11 


SES 004: 


no re + re 


CO4460 


000465 


=: 


p-- 
Be 
ad 
o- 
wr 


3 


geal G t 


001401 
NO000e 





004476 


MAINDEC=i1-DZRKK- macys1 27(1006) | O¥-0E7 
DORE Pit So AREP-7e oft 


BROINT: 


174400 


DO4 


vBLUE” FOR a EOP wane siitTcH REGISTER 


BR TSTl 3:60 TO TEST 1 


; THIS ROUTINE HANDLES UNEXPECTED TIME OUTS 
(SF), RO ;SAVE PC WHERE TIME OUT OCCURED 


: Tey Ro! 
=| 
che (SP)+, (SP)+ yes STACK POINTER 
YPE bss Asi IZ STRING 

gs bss T OVER THE ASCIZ 

.ASCIZ ><12) /TIMOUT, iy 

MOV RO,-(SP) :SET UP FOR TYPING OUT PC 

TyPQC :G0 TYPE OUT OCTAL PC 

Se aasTART 

;THIS ROUTINE HONDLES UNEXPECTED INTERRUPTS FROM RK11 

:SW 9 aN 10 FOR ING ON 

[AND LOOPING ON TEST IN WHICH TIMEOUT 

:OCCURRED, ARE PROVIDED. 

Hoy (SP) .RO ;SAVE PC WHERE INTERRUPT OCCURED 

BIT , aur : INHIBIT ERROR TYPEOUT? 

ene — YES, DON’T TYPE OUT 

iret ; TYPE ; UNEXPEXTED RK11 INTERRUPT’ 
i TYPE T PCs’ 

TYPE 65$ :;3T aC12 STRING 

BR 4 ::GET OVER THE ASCIZ 

-ASCIZ /,PC=/ 

,-(SP) T UP FOR TYPING PC 

| ented +S Typ Be WHERE’ BAD 

gym Beer 

CMP (SP)+, (SP)+ YES REPOSITION STACK 

IMP aSLPAOR 60 to TARTING ADDRESS OF 
: THE TEST THAT GAVE UNEXPECTED INTERRUPT 

ar e000, amet Lg? TEST? 

ALT ire co BACK WHER uN INTERRUPTED FROM. 
: INDICA 7 THE TYPE OUT A. 
: ON mk: i NH HIBIT Ty A heel BY 
;SET ING APPR realtones 

IMP aaSTART GO BACK T 
: Saee asia 9 CONTINUE 


a sl ae yet 27(1006) 04-OCT-76 16:06 PAGE 26 ' 
DZRKKD . F 22-SEP-76 08 GET VALUE FOR SOFTWARE SWITCH REGISTER SEG 0043 


1299 sAFTER THE ABOVE HALT WILL 

1300 RESTART THE PROGRAM 

1301 

1302 

1303 

1304 sRESTART AFTER POWER FAIL 

1305 THE PROGRAM WOULD RESTART HERE IF POWER CAME BACK AFTER A FALIURE. 

1307 004630 O04737 021650 PFSTRT: JSR PC, WATIME KILL TIME 

i068 

13 1 : TET ras aT eee eerie fl el br ae ht NOT FOUND TO BE PRESENT 
i3i5 : gaTHI HIS as a SPONSE 10 “ORI le! re BRIE, sh vee TOT caED ee SPECIE ; me 

1315 HREVERY Br 15 SSe0, TE a3 TRART Te BRIVE 
1318 ; ealVEy. 0 ve GIR g.f° IT Is T THIS ORIVE 

131 j #WAS CIFIED USER, IF I NOT AN ERROR IS 

1318 SREPORTED, 6 [ViNG THE ORT DRIVE NUMBER. IT IS LIKELY THAT THE USER 
1313 FORGOTTEN T Ve (THAT IS NOT SPECIFIED) ON 
136? tbe iE not ne The, CAE The Py di Tine ERROR. (TH DIFFERENT 
+355 *DRIVE ADORE BE RESULTING IN re SELECTION OF 

1324 jest! Sa 2 enleelianancininlans anatomist: 

132s g046324 00004 +671: SCOPE 

13¢7 1414 MOV sORIVO,RO NITIALIZE POINTER 

He SS Bem OM mf I RETHALHE BBR tones o 

1355 DOMENE OOSTS7 ODLMIO is: fe (BP CH SINLTIALIZ= DRIVE 8.0, 

ear paces ite : Q 2$ ones NCT 

1232 004654 120237 ool4I° CMPB  -«»R2,, DDPCH : FROM THIS DRIVE ” 

1233 OO04660 O01435 ; BEQ 4§ BR I IE YES 

1334 O04662 010177 174452 2s: MOV R1, ORKDA sabre 

1335 OO4666 105777 174434 TSTB = BRKDS 308 

1236 004672 1090005 BPL 3$ Noy Ta ORL ve NOT P 

1338 004674 005710 TST aRO We Oy nu pate SBELECTED BY 

1333 O04676 002026 BNE 4 :YES, 

1341 NO, THis DRI # Was iit SPECIFIED 

13He ; BYTE USER TVING 

1 ; Pay WEN 

1344 004700 010237 o01162 MOV R2, SREGO :GET DRIVE 8 

1245 004704 104116 ERROR 116 ‘THIS DRIVE # WAS NOT SPECIFIED BY 

1346 ‘THE USER, BUT WHEN SED GAVE 

1347 :*DRY’. CHECK THAT THIS DRIVE # IF 

1346 *PHYSICALLY PRESENT IS ON LOAD’. IF 
1348 *THIS IS NOT THE CASE, THEN ONE DRIVE 
1356 : MAY 3 GETTING = te BY TWO DIFFERENT 
{24 004706 005710 2S: TST RO ‘ee Hat TH bye” IVE WAS NOT INDICATED 
1353 004710 001421 BEQ 4§ IF IT WAS, & IT re NOT FOUND TO BE 

1354 ‘PRESENT (ORY CLEAR), REPORT ERROR 


P ce 
] 


am i ee re = ee 


MAINDEC-11-D2RKK- MACY]1 27(1006) 
DZRKKD.P11 Sep-re nes4? 


ee2- 


OO4712 004737 O2070e 
OO4¥71&6 104010 


1355 


ohaatitatd 


o-- 


aS 


B 
Suk 


SSIRRSGROSBE RRL BOE URES Be Talal salnited oe aoe One 


pars 
<= 
_ 
Ww 


+ b+ & 2 b= & * B+ 8 b+ & 2b - - O  * & 2—  2 o <2 2 b= = Bs O32 2 = = Oo 2-2 2 Hb op — hh B= wd =P =o = = > 2 o-d-+h = 0-2 <b -- w+ 


; 


001350 


04 


” -OCT-76 16 
CHECK 


ISR PC, GTHRG :GET Bees ER, DS 

ERROR 10 :DRIVE # (aS IN aKont was INDICATED BY 
: THE BUT WAS NOT FOUND TO BE PRESENT 
:CHECK THAT THE ROTARY DRIVE SELECTION 
‘SWITCH ON THE MODULE IS SET TO THE RIGHT 
‘DRIVE & 

CLR RO : THIS FOUND TO BE PRESENT 
: HENCE 1s Da 3 SeON THE SELECTION TABLE. 

MOV RO,R3 :DRIVE ADOR 

SUB #ORIVO,R3 “MINUS OFFSET FOR TABLE 

BIC #3,R3 iBV N ORI 

B00 sORIVO,R3 POINT TO OF PAIR IF RKOS F 

BIC #1 ,(R3)+ NOT SPECIFIED AS F MODEL 

BIC #100000°(R3)  § ;SAME 

ss DEC DRIVS : DECRE DRIVE COUNT 

iit (RO)+ i shceatT 

ADD #20000, R1 : INCRMNT S TO NXT DRIVE 

BNE 1§ $LUP BAK IF NOT DONE 

; THIS PART OF Erte .P PROGRAM IS GOING TO BE REPEATED FOR 

;EACH DRIVE 

:*DRIVAD’ CONTAINS IN BITS 15,14,13 THE ADDRESS OF THE 

:DRIVE BEING CURRENTLY CHECKED. 

NUDRY : 


H SESERESSESLESESESESSESRASAASSAARARESLASERRKSEAAELALFLAAARALRAL TSE 
Te FIN QUT NEXT DRIVE 10 BE CHECKED 

TS hoe ensue Next Ba THAT Is SENT AND THEN SETS UP 
ADDORESS IN DRIVAD (BITS 13,14,15). THE FOLLOWING TESTS 
DRIVE TESTED IS THE DRIVE WHOOSE ADDRESS IS IN 'DRIVAD’. 

Re te ee iy een oo 


ii sc 
MOV el, STIMES ; 1 Bot 
MOV 82° §TSTNM iieset ps om THIS TEST 
HIS (2) IN CASE THE 
LR RTTL aR “ora COUNT 
ist Bris ee VES PRESENT? 
4S: IMP SEOP NSS "IMP TO THE END 
MOV DRVPTR, R1 iGet vane POINTER TO THE NEXT 
2s rT #8170, (RL)+ IS THIS DRIVE PRESENT? 
6S: B00 420000, DRIVAD FORM NXT DRIVE ADRES 
4g 
1S: t31 DOPCH ; PROGRAM LOADED FROM AN RKOS ” 
MOV DRIVAD,-(SP)  ;PUT TEST DRIVE ADDRESS ON THE STACK 


+r Fe Ri ves THAT ARE NOT SPECIFIED ARE NOT FOUND TO BE PRESENT SEG OO44 


GO4 


PERCE Et OrR ie Re ame Recut £7 (1008) BH OCT BM Ke BRIE TO BE CHECKED SEQ 004s 
p0soso 0003 SWAB ;SETUP TO RIGHT JUSTIFY THE ADDRESS 
Ra a Bet S ) iAigt ie ie aoee 
141 ] (SP) : a 
is Beas ee = bios SHY NS Site 
iui? GOEEOS TeeEae fore (SPy+.DPCH LOADED THIS DRIVE.” 
Taig Boeto0 ee Bog BR iE VES, DON'T Test THE DAVE 
iai3 ested 010137 001354 38 MOV R1. SxVPTR 3S INTER TO THE NE 
et 4 ‘ 
1421 005106 104401 001272 TYPE MSGH 
i4ss Bperte BAao38 Bbte Moy PRIVAD, (RE) GET THE DRIVE POORER oar 
ia5 005122 051 CLR FFLAG 
1425 005126 01260 ROY (R5),RO :DR VE NUNPER oa a F ax he 
iS aunt ‘DRIVE THAT IS BEING CHECKED 
‘1428 9051 oc p00 BYTE 0 Seana ie 
1438 mae 905760 oO01414 fet DRIVO(RO) ; SEE IF F as 
1431 142 190006 vi 
1432 eat 104401 005152 Fre bss 51 TYPE ASCIZ . RING 
1433 005150 00401 poly : OVER 
1434 jigs: ASCIZ /F/ 
1435 905154 : ’ 
1436 005154 005237 001404 / NC FFLAG sSET F FLAG 
| ee Bosiée obizi3 es He &. hate KLERLARKBLRSRALRELEERE 
HERERALELEE 
ina ETE Seeeeeee NECK THAT DRIVE 18 SUPPLIED WITH POWER-DPL BIT 
fot ; | eneunbgeesuenesuncosnneansnasuntaiseaSenneninensantansaibattes 
1442 005164 900004 T OPE oi 
| HAG Doles LOLs mle fits 1S°8 CALL FOR THE SONTRL- 
| MMs RESET’ ROUTINE. A CONTROL RESET IS 
| fee | HTSSUED AO aNO OFTER 8 CER ¥ CERTAIN INT 
| ie? °AN ERROR IS REPORTED. NOTE THAT 
is TNE Pet PC N, ERROR NES Is 
tage :PC ‘CNT.RESET’ IS [Bcate 
aE ‘THIS IS A VERY BASIC ERRS IF IT 
| tyes ‘OCCURS GO BACK TO TEST 10 
1453 005170 013700 001326 MOV RKDS, RO RE, atthe 
| {Wee Les Bheo 10 ae oe rey DRIVAD, a . Check 5 hy BT oF eens fe SET? 
| 4456 005204 001003 BNE 1$ iE BRANCH 
1 O11 001162 MOV RO, SREGO Pecaereual 
| iste 0sel2 I ERROR 4 copia ie se 
i466 005214 012777 000015 174110 1S: MOV #15, aRKCS RORY Rese, TF OR 
i) Cn a a ore 
1465 005201 INC RI To 
| 1466 005234 001373 BNE 2$ ieee IF Ober sone i "Ee 







HO4 
MA -11-DZRKK- MACY ( ) -O0CT-76 H 
DORKKD Pl Sep -75 pera? bree 13 a feck THAT baive is SUPPLIED WITH POWER-DPL BIT SEG COME 


taeg poeSse re 020710 %: fe Pe eT 2RG 06+ Fr RCS ER 
1 Bpesag i ; ERROR 5’ Bee St OF Rees, ts eer, CHECK DRIVE POWER 










173752 e$: 


=e 
uw 
ares 
WOoOnNOu Lc 
o 
-— 
_ 
<= 


eet eed ed eed eed el od 
RORORpen eat 
ee 

_— 


14 OO See CLR Rl , 
1473 005250 10 009100 4: BIT #100, aRO DID. R/W/S {Por BIT SET? 
ie eee Gos aa ‘i 
Lire S20 PE Ri ‘tire rt R/W/S RDY 
1478 OO0S266 017737 174034 001162 MOV JRKDS , SREGO 
1478 005274 104016 ERROR 16 hws ROY OID NOT SET OF TER 
iat ee a him S e Heer , 
+383 1g creck athcttse 8 Bet Se BPeer 
1483 MIGHT ret TO THE TEST EROVIDED 
1484 ‘FoR CHECKING DRIVE RE 
1486 SS Stal lalahala hahahah beh b byl Soh b-tal-b--t beh tabeheh-b-$-3-t-del--tab-teb-5-d-telal- ah t-tetal tah 4-1 
1487 TEST 4 CHECK THAT "DRIVE UNSAFE’ IS CLEAR, *HDEN’ IS SET, ’WPS’ IS CLEAR 
1488 ee TST ETE E ETT T TTT TOSET EEE T STEELE TETEST ETT TEST TET TT TTT TTT TTT TTT Te 
1489 005276 900004 tétTy: 
1490 005300 104413 SET G0 CONTROL T 
149] :THIS IS af cal FOR THE ’ ~ 
1492 *RESET’ INE. A CONTROL RESET IS 
1493 IS AND AFTER A CERTAIN TIME 
1494 :IF THE *CNTRL DOES 
1495 :AN ERROR IS TE THAT 
1496 >THE PC_IN ERROR MES 
1497 PC WHERE | ’CNT.RESET’ IS LOCATED. 
1498 :THIS IS A VERY BASIC ERR & IF IT 
err] *OCCURS GO BACK TO TEST 10 
1500 005302 013777 001350 174030 MOV DRIVAD,9RKDA es; 
1501 005310 617700 i740le MOV ,RO 
1502 005314 032700 002000 
1503 005320 001403 < 
ies Besse IBC” 
ie 
1 005330 004000 
ie eae 173764 001162 
et Bese | 
1513 oos346 000040 

| 


ce 


104 


MRINDEC=11-DZRKK-D MACYL1 27( 1006) ccm 16:06 PAGE ve 
DZRKKD.P 22-SEP-76 08:47 T CHECK THAT 'DRIVE READY’ IS SET IN RKDS SEQ 0047 

1523 reer GC CHECK THAT RIVE RefOY 16 SET INAS 

tess STS CHECK IVE SET IN RK 
LeaeeaseanayaensensnanasnsanssnSeGAssAHAnHuEHSA00064TE9KE00848 

l 005364 900004 is 

1527 005366 104413 ANT RESET :60, DOC T 

1528 sTHIS 1s R CALL FOR THE CNTRL- 

1 : ISSUED Reb ae RA SORT AIN FTE 

1531 IF THE ’CNTRL RDY’ DOES NOT 

1 °AN E IS REPORTED. NOTE THAT 

1533 *THE PC IN MES 

1534 :PC 'CNT.RESET’ IS LOCATED 

1535 ‘THIS IS A VERY BASIC 8 

1536 “OCCURS GO BACK TO TEST 

1537 005370 013777 001350 173742 MOV DRIVAD,IRKDA § ;ADDRS THE spRIVE 

1538 005376 105777 173724 TSTB = @RKDS 21S 'DRY’ SET? 

1539 905402 100403 BMI TSTb rs OK Benet, 

1540 005404 004737 020702 JSR PC, GTYRG i$ GET RKCS, ER, DS, DA 

1541 005410 104010 ERROR 10 "ORY? NOT SET 

thes peeeeebesssnennareeeeesnsspnapeneeeenssgnanineneeneensssassaass 

1 . "oe THIS, Teer CK THAT MITHIN A ¢ eRIAIN ME 

Tue eae. EFT ogc ks, Tia i NRROR IS REPORTED 

1547 Sect Te, MN kL 

1548 oos412 oo0004 +éT¢: SCOPE 

1549 005414 013777 001350 173716 MOV DRIVAD,3RKDA § ;ADDRS THE DRIVE 

1550 005422 005001 CLR Ri HIntria ize COUNT FOR TIMING WAIT LOOP 

1551 005424 032777 OODYO0 173674 1S: BIT #400, JRKDS ?IS SOK SET? 

1552 005432 001006 BNE TST? : EX] 

1553 005434 9005201 INC R1 NO, WAIT 

1554 OOS436 00 BNE shatr ONG? 

1 Oos 017797 173662 001162 MOV , SREGO GE 

1 446 104011 ERROR 11 ‘WAITED LONG BUT ’SEC OK’ BIT DID NOT 

1557 : SET 

1558 ; 

ies 

izes SE EK THAT "SECTOR COUNTER’ CAN COUNT FROM O-12 

1563 . ii THIS COEF HECKS. PoaT s ue SECTOR EOUN cal ReOUNT- 

1565 i 1) FIRST, FOR gM TIALIZING PURPOSES THERE IS Lie 00F 

i te PURNOF DONE” ERROR Te REPORTED ee 

1eE9 +e TAIN TIME, B WHICH’ 

1 +i 13 SPIPLED, IF ee ME He SE, SOUTER WITHIN THIS 

1353 . 3)" Upon FinoING T ai Ar THe CKED 

is vs IT ge F IT ws fo NOT ANE ERESR Ba Te REPOR TED 

‘x 


1Brs Tate ee ay" | (S Srers 33,4 AR ARE REPEATED in ty 


76 FILL 
1577 ceamai HOt He cing tare ais 2 
SCOPE 


1578 OOS4SO OD0004 +é77: 
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MAINDEC- 11-D2RKK-D macy LI 27( 1006) proc -76 16:06 PAGE 31 

DZRKKD.P 22-SEP-76 08 CHECK THAT SEETOR COUNTER’ CAN COUNT FROM 0-13 SEQ 0O4e 
1579 GussS<c 104413 CNT. RESET DO CONTROL RESET 
ei PR ge 
a sTPSueD MO OF arTéR @ CERTAIN N TINE 
l F THE 'CNTRL RDY’ DOES NO T SET 
1588 ian ERROR TS REPORTED. NOTE THAT 
1 PC Where aati FESS Half, 
l :THIS IS A VERY BASIC ERR & IF I 
1589 ss OCCURS GO BACK TO TEST 10 
ee ln a ean ee 
1591 BOeHEE boso37 BOT SE CLR INDX! ‘COUNT’ - TO TIME "ERROR 35’ 
1592 905472 ¢ RS INITIALIZE COUNT’ - TO TIME 
154 Q0S¥74 12704 177764 4-14, R4 SINITIALYZE “COUNT” ~ FOR THE 12 SECTORS. 
i595 Bpeend pisces AOR MOV #1,R3 *R3 CONTAINS COE EXT” COUNT OF SEC-CNTR 
159% :R CONTAINS THE *PREVIOUS’ COUNT OF SEC-CNTR 
1298 OOSSO4 00S037 001360 1s CLR —_—sINDX2 i IiTnin COM’ - OTe 
1599 : i TMaLt SB) "ERROR 34? 
1600 005510 001356 INC INDX1 ; KEEP TIMING FOR ERROR 35’ 
teoe Beeie poseay 001360 2s Fe FRoxe pte TING NE POR TERROR Oe oan 
1603 eitey BEG yy REPORT ERROR IF WAITED LONG? 
1605 11001 MOV aRO i ; 
1 000400 BIT #400, R1 21S SOK’ SET? 
1 1771 9 ?NO, WAIT FOR IT TO 
1608 005534 O21001 CMP JRO, R1 : SURE THAT 2 CONSECUTIVE 
1609 005536 001362 BNE 1$ j READINGS OF SEC-C SAME 
1610 005540 042701 177760 BIC #177760,R1 YES, MASK NON-SEC CNTR BITS 
1611 005544 001357 BNE :1§ tT SECTOR O, IF NOT LOOP BACK 
1612 {WAIT FOR SECTOR 
eta ae = & Yoo TT TF PEO Re Cha 
tte Speeee 4§: Fe as thr FOR ’E 36’ 
1616 005554 001431 BEQ *BR & REPORT ERROR IF WAITED LONG 
1617 005556 011002 MOV dRO, Re :GET 
1618 005560 900400 BIT #400, Re >15 SOK SET? 
1619 005564 001 BEQ 4§ NO, WAIT FOR 
1620 005566 021002 CMP JRO, R2 :MAKE SURE THAT 2 CONSECUTIVE 
1621 p0s570 1370 BNE 4§ *READINGS OF SEC-CNTR SAME 
ies Geers feeeee 177° Be ITAOR® RO ane thee 
1 P53 ae) BEQ ug’ ?NO, WAIT FOR 
1625 005602 CMP R2,R3 YES, DID IT INCREMENT CORRECTLY? 
leek 005604 001023 BNE 9g :NO - REPORT 
1628 005203 SS: INC R3 s INCREMENT “NEXT COUNT” 
1e50 Bests Doe 00s ch ORS INITIALIZE AGAIN FOR TINING "ERROR 36° } 
1e31 Spee ta BpO7eN gir -G0 8 C cheek THE NEXT SECTOR COUNT 4 
1633 005616 010137 o01162 6S: MOV R1,SREGO ;GET 'SEC CNTR’ ‘ 
1634 O0S622 104012 ERROR le :WAITED LONG, BUT SECTOR COUNTER en 
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MAINDEC-11-DZRKK-D MACYL1 27( 1006) ge-oct- 7 16:06 PAGE 32 
DZRKKD.P11 22-SEP-76 08:47 CHECK THAT "SECTOR COUNTER’ CAN COUNT FROM 0-13 SEG 0049 
1635 DID NOT COUNT TO 0 
1636 o0sé24 00421 BR TST1O : sEXIT 
l 00S626 017737 173474 OO1162 7S: MOV DRKDS, SREGO sGET RKDS 
1633 005634 10401! ERROR 11 ;MATTED LONG, BUT ’SOK’ BIT DID 
164 005636 000414 BR TST1O ‘ XI 
1643 O0S64O 010237 001162 gS: MOV R2, SREGO 1 SEC CNTR (PRESENT COUNT) 
1644 uy] 001164 MOV R3, SREGI T ENeXT 7 COUNT 
165 So 104013 ERROR 1 THE SECTOR 
ies? OOSES2 000406 BR TST10 vad iP a ‘ 
tea sy Ol 001162 9s MOV R3, SREGO T °NEXT COUNT’ (SEC CNTR SHOULD BE THIS) 
120 1 001164 . MOV Re, $REG1 ET SENT COUNT (WHAT SEC CNTR WAS) 
1652 005664 104014 ERROR SEC ENTE a INCREPENTED WRONG, DID 
1653 NOT INCREMENT ROM PRESENT COUNT 
1655 OOS&EE 000747 BR S$ 
tee? ; 
1838 : jeeeseeeeeeneeseeneeseeneeaaaeenegneeaseeaneenaneasetan 
1660 i THIS TEST CHECKS THAT SC=SA CAN BE GENERATED FOR 
1pPs 005670 ae | ATE Ty aa oor ore paneer 
1664 005672 104412 CNT. RESET DO CONTROL RESET 
1665 in Tuts 1 IS ets FOR THE ’CNTRL- 
1666 ie CON RESET IS 
1667 tT AND AFTER A CERTAIN TIME 
1668 HTBSUED CNTRL ROY’ DOES NOT SET 
1669 AN ERROR IS REPORTED. NOTE THAT 
1670 ;THE PC_IN ERROR MESSAGE IS THE 
167 PC WHERE 'CNT.RESET’ IS LOCATED. 
175 1s 188 Mey Ric as 
1674 005674 013704 001350 MOV DRIVAD, RY ; 
1675 005700 013700 001326 MOV , 
167% 005704 012703 177764 a HOV ais R3 s INITIALIZE, COUNT FOR # OF SECTORS 
1678 14 phen ; CLR fe" ONT? FRC IZE cBUNY - FOR TIMING ERROR f 
teed bpeze8 Bone - Fs sKEEP TIMING F FF ART TED LONG - 
ieee aes Gae70h 000020 BT oO" Rit Ge SC=SA ser? 
1 I BEQ : :NO, WAIT FOR IT 
1684 OOe780 005204 4S: INC eS : ADORS te Next SE 
ie Bee tee me ee ete ese? FO Se 
1667 008740 000406 BR rs yts, EXIT 
1689 OO0S742 110437 oOD1162 3$ MOVE RY, SREGO :GET SECTOR ADDRESS 
1690 005746 010137 O21164 MOV R1'SREGI ‘GET RKDS 
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1691 00S7S2 

16392 

1633 005754 

16% 

1695 

1696 

1697 

a4 D0 : 
NNS7E0 

{00 bosses 

1701 005770 

1702 005772 

17S 005776 

ioe | Boeses 

1706 006006 

fe bel 
ANE NH 

1303 Boeble 

1710 006022 

1711 O06024 

1712 006030 

1713 

1714 

1715S 

1716 

1717 

1718 


NOTIN SS 


3a8 
B 


> b-2 b 2 B= b&b b = b+ & — b= bs 2 bb = 2 Bh bP Ps = + 8 


FRISSASAOIEDIONES 


104015 
000766 


oo0co4 
104413 


MACY11 27(1006) 


001332 
001350 173266 
000015 


O4-OCT-76 16:06 PAGE 33 
T10 CHECK THAT SC=SA CAN BE GENERATED 


_ERROR 15 ; COULD oft GET SC=SA FOR THIS 
‘get OR ADDRESS’ 
BR 4§ CHK FOR THE REST 
; pepeeebeececeesereeeenereraenececseneneenerenernecetetaeaenstss 
ETE CHECK THAT ’R/W/S RDY’ IS SET & 'SIN’ IS CLEAR 
A oa emer om a RapMNR ER 
3 RESET DO CONTROL RESET 
HOV DRIVAD, @RKOA i ROORESS THE DRIVE 
1S: MOV JRKDS, RO ;GET_RKDS 
BIT #100, R0 1S R/W/S RDY SET? 
BNE es H 
INC 1 WATTED LONG ENOUGH? 
BNE 1$ ;1F NOT LUP BAK & WAIT 
MOV RO, SREGO RKDS 
16 iR/WS ROY. SH ROY SHOULD BE SET 
2s ERROR #1000, RO N CLEAR 
ee pe eruRG ‘AYES, EXIT. DS. DA 
ERROR 1 j SIN’ SHOULO HAVE BEEN CLEAR 
ihext tect 15 ING TO CHECK 
*DRIVE RESET, SIN SHOULD BE 
:CLEARED THEN. i WILL BE CHECKED 
: THERE. 
ee ge tomer ee eer ne ee 
t STEST 12 CHECK ORIVE RE 
54TH HIS TES CHECKS TH HE vERY BASIC DRIVE RESET LOGIC. 
HEADS cre Then bas GOING oat THIS 
pis DRIVE Fes RESET FE RETRACTS: T Back Be CYLINDER 0 
#IN THE fer SET TH ee CTLINOER 9 ga 
WHICH DOES 1 Rey FROM PROGRAM THERE 15 
setgeesbeeaseenetecensabarseesssteersesssiteetessaeniesasaaases 
SET G0, DO CONTROL RESET 
:THIS IS A CALL FOR *CNTRL- 
*RESET’ ROUTINE. A CON RESET IS 
? ISSUED AND AFTER A CERTAIN TIME 
:IF THE 'CNTRL RDY’ DOES NOT 
*AN ERROR IS REPORTED. NOTE THAT 
:THE PC IN ERROR MESSAGE IS T 
*PC WHERE "CNT.RESET’ IS LOCATED 
‘THIS IS A VERY BASIC ERR & IF 
OCCURS GO BACK TO TEST 10 
MOV RKCS, RO 
CLR RY s INITIALIZ COUNT - TO TIME ERROR 
MOV DRIVAD,JRKDA § ;ADORESS THE DRIVE 
MOV #15, aR0 :*DRIVE RESET’, GO 
CHKCRDY GO CHECK IF CONTROL RDY IS SET 
IF 50, SKIP THE EROR MESS 
ERROR 21 *CNTRL RDY DID NOT SET 
‘SENDING CYL ADDR TO THE Dal. 


SEG 00S0 


MAI 


0) 


wd zz2 


Ce a 


dotalads 


ee ee ee oe ed 
ws 


AISeeE 


ERENT ES EE SERERERERER 


Sulaad 


Ree 


C-11-DZRKK 
Pll ee- 


- 


oocoo4 
104413 


MACY1L1 27(1006) 
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000100 173236 
020702 


001000 173214 
020702 


140000 


poet 001162 


001332 
001350 173140 
000011 


MO4 
tie Check’ BR ive RESET” SEQ 0051 


M BOR DRIVE. cuER UPOn coe GCN ROY’ 
2s: BIT #100, 9RKDS FR R/W/S hoy Set? 


ine a HetteD Cine 
BRrorn g'°7 "6 ‘Pu Flor a bt Set Bere 


3S: BIT #1000, JRKDS 0 SIN SET? 
BE S$ BRANCH 

JSR PC, GTYRG 00: GET RKCS,ER,DS,DA 
1 ish velects BF TER A 

SS: BIT #140000, aRO iHRS ERR BiT OR 'HE’ BIT SET? 


m 
2B 
3 


4 
, GTYRG : T RKC 
OR 5S ant bp "HE? Rt BPs PA WHILE DOING 
:DRIVE RESET 
4§: CMP #214, JRO :DOES RKCS STILL CONTAIN THE 
:*DRIV RES’ BITS 
BEQ TST13 YES, EXIT 
MOV #214. SREGO GET EXPCTD_RKCS 
MOV JRO, $REG1 ;GET RKCS, RECVD 
ERROR 24 *NO - RKCS SHOULD CONTAIN THE "DRIV RES’ 


FUNCTION, ERROR IF DIFFERENT. 
TEE as (Er ORE Ue Sear ts pute see 9 cree 
; i# TH irat Ceres, THE LOGIC DOING SEEK TO CYLINDER 0. 
NOTE THAT St He HERD ARE ALREADY ON CYLINDER O, 
NVOLVEDN AND THE STRESS IS ON THE BASIC SEEK 


Coc! ” aspen 
oss tSonenntnnrenoansantaneneaneanoteenoe 


+6113: 
BAT RESET CONTROL RE 
eg A CALL peaeT THE *CNTRL- 
NE. A CONT ROL RESET 


TQ TEST 1 
TST.SIN ‘60 CHECK IF SIN SET. IF SET 
3A DO ORIVE RESET TO CLEAR IT 


MOV =—sRKCS,, RO 
MOV  DRIVAD,@RKDA =; ADDRESS THE DRIVE 


MOV #11, 9R0 ;*SEEK’ GO | 

CHKCRDY :G0 CHECK FS CONTROL RDY Is oe" 

ERROR 21 tT ENTRC Boye btB AO NOT oR eS aPGE eTER SENDING 
CYL ADDR TO THE DRIVE, "ADD AC 
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1803 
1804 
1805 00621 ren] 
ioe 00621 Bae 000100 
1808 006222 posene 
B10 DOESee Bou? 020702 
1811 O0623e 1040e6 
181e O006e34 032777 001000 
1813 O06e42 001403 
1814 006244 004737 020702 
1815 O06eSO 104001 
1818 
i81 
1818 
1 , 
is aE eg me 
1623 006260 004737 020702 
iss} 006264 104022 
1826 006266 005777 173036 
1 1 
He Bee BOP ceo 
1830 
183i 006302 022710 000210 
Hes Hees Rie 
ies Be Site SRRue 
Hee HES 
is 
1838 
ie 
ies 
ies 
ee 
1 
ie 006324 000004 
1823 006326 104413 
ie 
ieee 
ie 
1857 
1852 


173106 


001162 


O4-OCT-76 16:06 PAGE 35 
T13 CHECK *SEEK’ TO CYLINDER O 


;SHOULD HAVE COME BACK FROM THE 
:DRIVE, THEREUPON SETTING 'CNTRL RDY’ 


sDID R/W/S ROY BIT SET? 
BNE H 
INC RS WAITED LONG ENOUGH? 
BNE 2$+2 IF NOT, LUP BAK i. WaIT 
SR PC, GTYRG GO, GET RKCS DA 
E 26 R/S ROY Sih aet Re BF AFTER SEEK 
3S: BIT #1000, 2RKDS :D 
GET CS ER DS 


8. 

ahi ye ne THE 
esl T i § 
: BEEN 


6$: aM aera ating ;WAS ’ERR’ OR 'HE’ BIT SET? 


Q 
JSR PC, GTHRG GET RKCS, ER 
ERROR ‘an! OR 'HE’ BIT Ot PAILE DOING ’SEEK’ 
4g: qs e ;WAS WNY BIT IN RKER SET? 
SR , GT3RG G0 GET RKCS, ER, DS 
ERROR 23 ?RKER SHOWS AN ERROR BIT, CHECK 
cs: CMP #210 aRO ;DOES RKCS STILL CONTAIN *SEEK’ FUNCTION 
BEQ TS 14 $s XIT 
MOV #210, $REGO RKCS 
MOV , $REGL RK VD 
ERROR 0, RK SHOULD BE STILL CONTAINING 
UNCTION ERROR - IF IT CHANGED 


arm eT a 


SATEST 14 aan reek B A fo N MOTION 
SSUHER THE om Kee IN ms i ae rove -, 
in oe 
j#NOTE “THs cH FIRST TIME HEADS ARE MADE TO MOVE BY SEEKING 
LOG eee 
oer grt isa Fe 
pany Say i 
& ERR ey NPAT 


SEG 00Se 


“DIRKK-D 


104421 


004737 
104026 


it bee ie 
1870 22 
187 


cCiekias ba 
se 


; 
it 
Se 


ine 
188 006410 
1878 OO6414 lD4016 
1873 
1880 
1881 
1862 
1883 
Lees 
| 1686S 
/ 1886 
| 4887 
| [BBE 
1e8es 
1850 
1891 
| ese 
/  3es3 
/ (eS 
less . 
| 1e% 
1297 
169e 
1299 
| 3900 
1901 
1902 O0641—6 900004 
1353 006420 104413 
ap 
| ioe 
| 1% 
i; 1908 
. 41909 
i 3930 
/ 391 
| 391 
| 1913 oOe4¥22 104421 
| 1914 


i taal 27( 1006) 
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we 76 16:06 PAGE 36 
T14 CHECK R/W/S RDY IS CLEAR WHEN HEADS ARE IN MOTION 


TST.SIN ;GO CHECK IF SIN IS SET 
:IF SET DO OR ee! y' CLR IT 
:MAKE SURE HEADS R ON CYL O 


ISR PC, DRESET 
ERROR 26 ew ROY DION’T SET 
THE ABOVE RESET 

CLR RS 

MOV DRIVAD, IRKDA 

BIS 8100, DRKDA ;SEEK CYLINDER 2 

MOV RKDS:R1 

MOV 811, ORKCS :SEEK, GO 

1S: BIT 8100, aR1 :DID RvW/S RDY CLR? 

Tre 2s : , BRANCH 

NC RE 

BPL 15 

dRror og" 
:R/W/S ROY WAS NOT CLEAR WHEN HEADS 
{WERE SEEKING TO CYLINDER 2 

2s: JSR PC, TSTRWS G0, WAIT FOR R/W/S RDY TO SET 

ERROR 16 sR/W/S ROY DID NOT SET AFTER SEEK 
: WAS IED TO CYCINSER : (ABOVE } . 
NOTE THIS WAS THE FIRS TIME A SEEK 
WAS TRIED TO A CYLINDER OTHER THAN 


s SRELEASFERASESES ECK WRITE” HEORMAT FUNCTIONOCYLINDER 0 SECTOR 


iret “aTHIS, rest ¢ CHE eee Coat 0G WoL N ie Me etaite EMT Sereno 
yeh INE : cit pis i | ay I CHECKED 
sh ee CTR 
#2) eNTRL ROY SE SETS THIN a cPerain Fin ON COMPLETION OF FUNCTION 
#4) tf TLY FROM O TO 1? 
#5) IF RKWC CORRECTLY TO 0? 
:#6) IF RKBA INCREMENTED CO CORRECTLY BY 2? 
#7) a ANY BIT _IN RKER SET" 
;*8) IF WRT FMT? FUNCTION girs ARE STILL IN THE RKCS? 
:#NOTE THAT ONE WORD '1 * WAS WRITTEN ON SECTOR 
-#0 8 IT WILL BE CHE N THE NEXT TESTS. 
;usegneslanenecestenseesssonsensnananonssssnanaieaiasnacsansaaats 
CNT. RESET : T 
Hts tsa chet aes *CNTRL- 
RESET’ ROUTINE A CONTROL RESET 1s 
tT PSUEP ’CN Chor" SE T is 
1m ERROR 15 REPOR NOTE THAT 
Tae Ts nee UBoaTeD, 
eRe co B prc 0. 70. TEs sf 10 
TST. SIN see CHECK IF SIN I 


;IF SET, DO ORIVE RESET TO CLR IT 
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1915 


131 


shi ai Sencar 


006424 


012703 


Sone 


- 
~ 
Cd 


8 


ee AE! EE 


8 
q 3 


033240 


000001 


021142 


001202 


3S: 


18: 


COS 


76 16:06 PAGE 37 
CHECK *WRITE’ FORMAT FUNCTION-CYLINDER 0, SECTOR 0 


MOV 


my S8oees Somtanee & 


sOUTBUF ,R3 


GTYRG 
DRIVAD, $REGIO 


31 


Sith MicL Be USED TS BRITE 1 SECTOR 
; aa ee 


:2ND WORD 177777 2°S COMPLEMENT 
:3RD WORD OF ABOVE 

s47H l 

i asSep WORD 000177 

254TH WORD 177601 

igeprd wep 

;SET COUNT 


;SET UP DATA WORDS 


; DONE? 


;SET 2SSTH WORD TO C 
:SET 256TH WORD 


;RESET POINTER TO OUTBUF 

:FROM HE T UP CURRENT ADDRESS 

iSEY ue BRS. COUN T 400 WORDS 

i SET UP DISK RODS, SECTOR 0, CYLINDER O 

; FORMAT, 

;WAS "CNTRL RDY’ CLEARED AS GO WAS SET? 

By br Rie CLEAR AS GO 

cert "WRITE FORMAT’ 

‘CNTRL RDY’ SET ON COMPLETION OF WRITE? 


U WAITED LONG ENOUGH? 
& WAIT 


ae 


Ba 
Si 


8 
a 
2 
& 
g 3B 
Gs 


BORY’ & BRE 


Bet aa ee on 


WRITE FORMAT 
DONE STARTING AT <DSK-ADRES> 


IF 'HE’ OR ERR’ BIT SET, 
DA. 


one 
#5 
qs 


a 
a: 
=z 


ee 
s 


SaaS 
8 
a 
3 


BIT SET WHILE DOING 


aa 
S 


- SEG 00S4 


eT 


RSIS 


macy at 27( 1006) 
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1971 
1$72 
1973 
1974 O06S6E 0047 
1975 
128 O06S7e 104033 
ioe 006574 004737 
1980 006600 104034 
1B cee wr 
igs : 
oe: 
1985 006616 011237 
i= 006622 1 
1 
is 006624 004737 
iy me wan 
1992 O0663e 022711 
1993 006636 001406 
1994 eee 012737 
1995 M6 011137 
1996 O066Se 104024 
1997 
1998 
1999 
2006 
2001 
e002 
2903 
2004 
BS 
2008 
2009 
2010 
- 211 
20le 
2013 
e014 
2015 
2016 
Bi 
Bi 
OOGES4 
OOGESE 
006660 104413 


001162 


001162 


DOS 


04-OCT-76 16:06 39 
Tis CHECK *WRITE’ FORMAT FUNCTION-CYLINDER 0, SECTOR O 
ERIE Be 
RT WAS STARTING AT <DSK-ADRES> 
4S: ISR PC, CHKDA i ieeck IF I ED CORRECTLY 
RETURN RN OHERE 
ERROR 33 ; gt INCREMENTED BY 
iF EC , IT DI 
S$: ISR PC, CHKWC ; CHECK Ke TF WORD fo COUNT T OVERFLOWED, IF 
ERROR 34 sRAWC DID NOT OVERFLOW TO 0, AFTER 
$: CMP sOUTBUF +1000, aR2’ , py het eer CORRECTLY? 
b 
BEQ 7§ -YES pric 
MOV sOUTBUF +1000, $REGO ; be TD RKBA 
MOV DR2, SREG] GET ACTUAL RKBA 
sRKBA I LP INCREMENT BY 1000 AFTER 
7$: JSR PC, CHKER :CHECK IOF ANY BIT IN RKER SET, 
IF YES RETURN HERE. 
ERROR 36 AKER BIT SET SET ON DOING 1 WORD 
gS: cre #2202, : DOE KES eTTLL HAVE ‘WRT FMT’ BITS? 
: GE exberD RKCS 
MOV ahi, SREGI :GET ACTUAL _RKCS 
RKCS DIDN'T CONTAIN 'WRT FMT’ BITS 
AFTER THE FUNCTION WAS COMPLETED 
a te ee etn EE 
4 sTHIS Fee CHECKS aS THE L os I¢ ThvoL NCTION- Ct INOER Dt re Ene 


UNCTION. an es THE ro OWING IS CHECKED 
CNTRL ROY WAS 


CLERRED "s'G WAS SET. 
SETS oe A CERTAIN TIME ON COMPLETION OF FUNCTION 
*ERR’ BIT SET? 
ie: TLY_FROM O TO 1? 
no MR TQ a 


CEI 
FMT RKDB CON OINS THE CHECKSUM 
T SECTOR. ae IN THIS CASE, BE THE 
oF Bae nec SEC 0 WAS WRITTEN AS leS2Se IN 

OR RK11D, SOFTER RD FMT RKDB SHOULD CONTAIN 


ste RD FMT FUNCTION BITS ARE STILL IN 


ier 
Seong 


oe 


—"""""" 
=" 

Re 

4 


Ge aaa 


SegigesSeazeeee 


me 
pares 
Sige tS 
— Pee 
vn 


jtepeeebeenaeseseeenenereenerenaevenananeansanacsnnarsnsensenys 


tti¢ 


CNT.RESET 


Tats Ts, oa ROL RESET IS 


ISSUED AND BFTER ry CERTAIN. YF i. 3 
IF THE *CNTRL ROY’ DOES NO 


Séq O0SS 


SES 


EOS 
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Tle 


ITT | 
Su Gudea WE 


88 
BR 
5 


rurorurorururvrururururfurorurururorururururururnorururfrururfrururoruorurururury 
Ww 


ok chal oh ck ok ak ak shaiataiaakeiataiiatokehabetebohaetenatn 0-* B20 < B= bho be 
SYRREBR LB VV VRRP ORB aw Now cw be aN Poor 


40 
CHECK * ibaa Ph FORMAT’ FUNCTION-CYLINDER 0, SECTOR 0 


; "READ a i = 
JSR PC, CHKER i CHECK a T IN RKER SET, IF 
ERROR 36 sRKER BIT SET. ON DOING 
TST. @&R3 :DOES QUTBUF CONTAIN THE HEADER 
BEQ 9s YES. 
CLR $REGO iM CTOR 7 


nov SSdnece «= ERY opaneR ec 
ERROR 43 Paco 


cre #2204, aR! HAVE THE 'RDFMT’ Tarts? 
#2204 ae 5 Bene cs 


MOV 1 SRec; 7 

ERROR sf : . ‘Res ob “CORTAIN He FMT’ 
:BITS AFTER FUNCTI 

: COMPLETED 


HECK READ’ FUNCTION-CYLINDER 0 SECTOR OO 


‘itesT 17 1? CK * FUNCTION-CYL INDER 0,SE 0 
#THIS 15 Ye FI ne A PURE READ oBREFORNED IN THIS 
s#TEST SEO FOLLOWING RHE CKED 
say GN DY CLEnrS AS 
i#e) S WITHIN A eek AIN TIME ON COMPLETION 
;#3) 
Eig 2 Read Een 
245) iF RKWC LOWED TO 
#6) IF RKBA INCREMENTED CORRECTLY? 
#7) TF ANY RKER BIT SET? 
#8) IF THE CORRECT PSUEDO-HEADER (FIRST WORD) WAS 
j BREAD FROM SECTOR 0 
#9) IF THE ’READ’ FUNCTION BITS ARE STILL IN RKCS 
pipiens beereseneeieeeseeceeneienneeseneneeenneneiae nena tnenatn 
SET :G0, DO CONTROL RESET 
‘THIS IS A CALL FOR *CNTRL- 
*RESET’ ROUTINE. A CON Is 
* ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY’ DOES NOT 
:AN ERROR IS TED. NOTE THAT 
: THE N ERROR SAGE IS T 
:PC ’CNT. y It 
‘THIS IS A VERY BASIC & IF IT 
OCCURS GO BACK TO TEST 1 
TST. SIN °GO CHECK IF SIN IS SET 
:IF SET, DO DRIVE RESET TO CLR IT 
MOV RKCS,R1 
CLR RO 
MOV 


RKBA, R2 
MOV SOUTBUF ,R3 


# 
§ 


3 


OL VBSVRRESHLS IarIaaZIn-SSSGEALG-CIBVER LOWE SSSPHESOASS GS 


Trororororororerurerororururerorurururorurururorororurorururulrururururufururofururururururururororururururururu 


0 b= b= b= = & + b= b= B= b= OO Fb b= = 0 = 0 0 0 bo 2 = 2 Ob 8 + + 0-6 +b 2d 2b +6 o--> - bo - b= > <0 + B- ~ 
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172174 
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001202 


021142 


001162 


000001 001162 


04-0CT- 
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i Ral go Gaty G28 5 


GOS 


76 16:06 + 
CHECK Oe an PENCTION-CYLINDER 0,SECTOR 0 SEQ cose 
R3, aR2 ;SET UP ADDRS WHERE DATA WORD IS 
310 BE X-F D 
Tet ane, BET UP DISK BORS. SECTOR 0, CYLINDER © 
#5, aR1° + READ. oB . : 
aR1 ; HAS "CNTRL ROY" CLEARED AS GO WAS SET? 
BS crane tf "GET RKCS, ER 
30 :CNTRL ROY DID NOT CLEAR AS GO 
= ;WAS SET TO "READ’ 
aR1 ; Was ROY SET ON COMPLETION 
3$ : YES 
RO 


'NO, HAVE U WAITED LONG ENOUGH? 
—- AE MEL beeen ehh 
:G0, Get RKCS, ER, DS,DA 


READ WAS DONE STARTING AT <DSK-ADRES> 
; INDICATED IN EROR MESGE 


PC, CHKHE ;CHECK _IF_'ERR’ OR 'HE’ BIT IS SET 
TF YES, RETURN HERE 
46 joe OR °ERR’ BIT SET WHILE 
‘DOING A READ. 
SREAD WAS DONE STARTING AT <DSK-ADRES> 
s INDICATED IN ME 
PC, CHKDA CHECK IF RKDA INCREMENTED CORRECTLY, 
TF NOT RETURN HERE. 
40 :RKDA DID NOT INCREMENT 
BY } (SECTOR) 
PC, CHKWC ; CHECK Fe RKWC OVERFLOWED TO 0, 
41 Rue DID Ore OW TO 0, 
AFTER X-FER ON READ 
#OUTBUF +1000, aR2 -DID RKBA INCREMENT CORRECTLY? 
YES, BRANCH 
#OUTBUF +1000, SREGO -GET EXPCTD RKBA 
dRe, $REG1 GET ACTUAL RKBA 
*RKBA DID NOT INCREMENT BY 2 
jAETER *READ’ OF 1 WORD 
PC, CHKER ‘CHECK IF ANY BIT IN RKER SET, 
‘TF YES RETURN HERE. 
36 *RKER BIT SET ON DOING 1 
“WORD *READ’ 
#1, 3R3 ;DOES OUTBUF CONTAIN THE RIGHT 
sDATA_ WORD 
;YES BRANCH 
#1, SREGO "GET EXPCTD DATA WORD 
(R3), SREGL GET RECVD DAT 





C- st te ee % pe 27( 1006) 


013737 001380 001166 
1g Gorai2 10s 


ror 
i BB SRih 


SBumasGn 


RURRRUARIRI 
DONT WU} 


SSRN ORC cOM IMO SONOS SS NMDA 


HOS 


-OCT-76 16: 4 
13 CHECK i BB an Pence rON-CYLINDER 0,SECTOR O SEG oOSs 
MOV DRIVAD,SREG2 § ;GET DISK ADRS FROM WH cH READ WAS DONE 
ERROR 44 sB1D NOT READ THE CT 


a WORDS -PROM ofsk ADRES, 
;SEC 0, CYL 0, SUR O 
;AFTER 1 SECTOR READ RKDB CONTAINS 
i Cre cxsum FOR THAT SECTOR 
:THE LAST WORD TRANSFERRED TO MEMORY 
'rT SO HAPPENS THAT WITH THE SECTOR 
lane | onRATYON FO POR BOTH RRLICe 
110 
9S: cH #125252, ORKDB ;DOES RKOB CONTAIN THE EXPCTD WORD? 
aSs252 $REGO GF ciectb ce 


MOV JRKDB, SREGI :GET RE VO RAO 
ERROR :RKDB Beso ND CONTAIN THE 


37 
8 hagaststchery Lame! 
10$: CMP #204, R1 + BOES RKCS HAVE THE ’READ’ BITS? 
BEQ 11$ ies BRANCH 
MOV #204, SREGO EXPCTD RKCS 
MOV OR1, $REG! :GET PECVD RKCS 
ERROR 24 =RKCS DID NOT CONTAIN *READ’ 
agg! BITS AFTER OPERATION 
11$:  CNT.RESET GO DOC RESET 
TST JRKDB Bt CONTROL RESET CLEAR RKDB? 
BEQ TST 3,YES, EXIT 
MOV RKDB, SREG1 S OF RKDB 
MOV JRKDB, SREGI T CON 


NTS _OF RKDB 
‘Sena RESET DIDN’T CLR RKDB 
A pana og te ee og ge a 


‘ETE TEST 20 CHECK ’WRITE FORMAT’ -CYLINDER 0, SECTOR 0-13 
sSTHIS TEST ONE STEP Fi & PERFORMS A WRT 
:#FMT ON 0 & CHECKS T 


OLLOWING 
say) IF CNTRL_RDY SET WITHIN A CERTAIN TIME ON COMPLETION 


ay HE ae abt Ric lwecn 
ie FIR IRS meat de ee IS rte AS A 


et #, SURFACE 


BOR #. THIS WILL BE READ exe IN THE POPLOWINE TEST. 
; sraeeksensitatintatatbhtietoeteetcteterserate 
MOV RKCS, 
MOV 8-14' ;SET UP COUNT FOR 12 SECTORS 
MOV RKDA’ RY 
MOV DRIVAD, R1 ;GET DRIVE ADDRESS 


—— eee eee 


2251 


RHSER OSS NIT ONS MN OTERO NSS oO TIN SORA TERE ROUEN 6 


et a 
DZRKKD.P11 


22-SEP-76 


007434 
007436 


ai dda 


PEE! Et 


T 


010105 
Ole737 
LO4413 


104421 


o18i3? 


012777 
1 
O16114 
012713 
105777 
100410 
005200 
001373 
004737 
010137 
104416 
104031 


004737 
104032 


004737 
104033 
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OC7446 001110 


033240 


033240 
177777 
002003 
171624 


021134 


021176 


171650 
171640 


1$: 


4$: 


20S 


-0CT-76 
check” DE rte NBT" “CYLINDER 0, SECTOR 0-13 SEQ 0060 
Hoy R1,RS :STORE IT 
MOV #1$, SLPERR ;SET RETURN ADRES FOR LUPING 

: ERROR (SW 9) 
CNT. RESET 5G DO CONTROL RESET 
‘THIS IS A CALL FOR THE 'CNTRL- 
RESET’ ROUTI CONTROL RESET IS 
18 AND AFTER A CERTAIN TIMe 
: *CNTRL ROY’ DOES NOT SE 
"AN ERROR IS REPORTED. NOTE THAT 
j THE PC IN, ERROR MESSAGE Is THe 
* THIS iS a VERY IC BB gore 
:OCCURS GO BACK TO TEST 10 
TST. SIN :GO CHECK IF SIN IS SET 
sa - IF SET, DO DRIVE RESET TO CLR IT 
MOV Ri, OUTBUF ;THIS WORD TO BE X-FERRED. FIRST 
:WORD OF EACH SECTOR WILL BE THE 
[ACTUAL DRIVE-ADDRS CONSISTING OF 
‘DRIVE NO, CYL ADDRS, SURFACE 
sea TO8 I. 
MOV SOUTBUF,3RKBA ; FROM WHICH DATA WORD IS TO 
MOV s 1 ,RKWC ise “UP WORD COUNT 
MOV Ri “ADORS THE DRIVE, CYL 0, 8 CORRECT SECTOR 
MOV #2003, 3R3 ;WRITE FORMAT, GO 
TST8  @RKCS ;DID *CNTRL RDY’ SET? 
BMI 3$ YES, BRANCH 
me & AD a SPU LSE, 
iT ves, REPORY ERROR 
nov Ri’ SRECIO i800, Get KGS AORS ( FTAIT YL, SUR,SEC) TO WHICH 
, ‘AB ITE FORMAT DONE 
BRKDAY *GO TO *BDAY’ & BREAK CONTENTS OF 
SREGIO INTO DR #,CYL,SUR,SEC BITS 
ERROR 31 :*CN Y’ DID hore SET ON COMPLETION 
OF *WRITE FORMAT’ 
*WRT FMT WAS DONE STARTING AT <DSK-ADRES> 
INDICATED IN EROR 
ISR PC, CHKHE 1 ‘CHECK IF ’ERR’ OR 'HE’ BIT IS SET, 
*IF YES RETURN HERE. 
ERROR 32 :*HE? OR ERR’ BIT SET i WHILE DOING 
j WRITE FORMAT ON CYLINDE 
j SECTOR N ERROR fe cAS Sou IN 
:D S BITS 0-3 
‘WRT FMT WAS DONE STARTING AT <DSK-ADRES> 
INDICATED IN EROR MSGE. 
ISR PC, CHKDAL ;CHECK IF RKDA INCREMENTED CORRECTLY? 
ERROR 33 


;RKDA DID NOT INCREMENT CORRECT 
SAFTER 1 WORD WRITE FORMAT’ ON 
;CYLINDER 0, SECTOR IN ERROR IS 1 
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1715872 
001162 
171560 


000014 
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Ted CHECK ‘WRITE FORMAT® -CYLINDER 0, SECTOR 0-13 


JOS 


LESS THAN THAT SHOWN IN EXPCTD RKDA 


: TST K T 

- ooh pee seh Hie? BE CRE POE RS FO NGRS War ren 
ie He Y SHIFTED OUT TO THE DISK 
CLR SRE GO aa Tuts IS WHAT RKDB SHOULD CONTAIN 

OR aK ’ : be BE O AFTER WRT SINCE THE 
iLAST WORD WRITTEN WAS SERIALLY SHIFTED 

6S: INC F HTNCREMENT BR IVE ADDRS TO NXT SECTOR 
CHP a14,RS RU BOING 10 TO CHECK THE LAST SECTOR? 
ADD 84,RS Ee Eceaie es cate eis” RKDA’ 
INC Re ORMATTED AL ALL 
BNE 1$ i: ie "BRANCH BACK 

$ eer oT CMECK READ FORMAT Pe AYLINDER OF SECTOR Oe 

: &TEST el "READ FORMAT’ -CYLINDER 


ett S 


CTOR 0-13 
iH rte ST PERF ORs A RD ON THE re SEE TORS OF CYLINDER 0 
iF chk abe SE THIN A CERTAIN TIME ON COMPLETION 


UNCTION 
He OR e BIT 


pKeA T 


) 

) 

3 Rie OVERELOWED 6 TO 0 FROM -14 TORS. 
) _RKCS STILL NE aa BITS. 


kia om 


THIS TE 


liebe tS Wa Reto 


; #ONE. tS 
j#IN QUESTION. 


tét21 


CLR 
CNT.RESET 


CON ey keer Pree ON THE "Test 


Tes WHEREAS A tocre ERROR DOES NOT. 
oo SOL TS 


RESET 
mug Le ALL FOR Tie T IS 
: TSSUE HED D AD Ar arin A eae 
AN ERROR I oe he POR WO aT 
:THE PC_IN ERROR MESSP pore THE 
*PC WHERE 'CNT.RESET’ IS LOCATED. 
‘THIS IS A VERY BASIC ERR & IF IT 
OCCURS GO BACK TO T SI 10 
:GO CHECK IF SIN N 1g SET 
?IS SET, DO DRIVE RESET TO CLR IT 


;SET UP COUNT FOR 12 SECTORS 


SEG 0061 


cpanmmnmy 22 


SECRRERR SSE TAAT BReO SEAM RE RRO RIS 


RERRR ERE ES 


DWNOW CWO 


RO 
NY 
a 


—- OOO000 


bs 
“ 
o— 
«= 
x 
fu 


e 


3 
a3 
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2o8 
q 
8 
8 


— 
ei 
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8 
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021142 


004737 021176 
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171456 
171446 


171370 


001162 
001164 


001162 


a Deck 16:06 


es: 


4§: 


SS: 


6S: 


KOS 


PAGE 4S 
"READ FORMAT’-CYLINDER 0, SECTOR 0-13 


DRIVAD, Re sADDRESS THE DRIVE 
SOUTBUF . RY 
R4, SRKBA ;ADRS TO WHICH X-FER DATA FROM DSK 
#-14, IRKWC 5h uP ene oY COUNT FOR 12 HEADERS TO BREAD 
#2006, IRKCS 
cs 21 CNTRL ROY SET ON COMPLETION? 
IT FOR IT TO SET 
1$ IF "WAITED LONG 
: ERROR OTHERWISE LOOP BACK H WAIT 
PC GTYRG GO, GET RKCS, ER, DS,DA 
tVAD, $REG1O 
G10 INTO DRA CTL SUR SEC BIss 
4S :CNTRL RDY BBRNOT SEF ON COMPLETI 
OF READ FORMAT-OF CYL é 
;SECTORS D-13 


PINDICATED IN ME 
PC, CHKHE ‘CHECK IF ’ERR’ OR ’HE’ BIT IS SET, 
IF YES RETURN HERE. 
ue i pERR’ OR “HE” BIT SET ON DO 
; READ EMT-OF CYLINDER 0, SEC 0-13 
>READ FMT Was DONE START STARTING AT <DSK-ADRES> 
: INDICATED IN 
DRIVAD,RS 
,RS ;RKDA SHOULD HAVE INCREMENTD TO (Re) 
PC, CHKDAL ;CHECK IF RKDA INCREMENTED CORRECTLY, 
ms :I NOT RET N HERE . we 
Ree i , FAY me RS OF 
*CYLINDER 0, SECTORS 0-13 
, 


3 AF 
;CYL 
PEER! Jag OY ore 


3A 
SOUTBUF +30, ORKBA ; D INCREMENT CORRECTLY? 
ati te RKBA 
RKBA oI NOT INCREMENT Crest 
HEADE 


PC, CHKWC :GO OVERFLOWED TO 0 
+ IF RE HERE . 

4] *RKWC DID NOT OVERFLOW TO O 
;AFTER ?RD FMT’ OF 2 HEADERS 
OF CYLINDER 0 

(R4)+ WAS THE CORRECT HEADER RECIEVED? 

SREGO : "SECTOR. FOR WHICH THE HEADER 

#14 SREGO *COULD NOT BE READ CORRECT 

SREGI *EXPCTD HEADER-O, FOR CYL 0 

-(R4) , SREG2 GET WRONG R REC 

43 ‘HEADER WAS NOT READ RIGHT FOR 
;SECTOR (ASIN ER MSGE), & CYL O 

(R4)+ ‘WAS THE CORRECT HEADER’ RECVD? 


SES 0062 
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177764 
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T21 CHECK "READ FORMAT'-CYLINDER 0, SECTOR 0-123 SEG 0063 
7$: INC RO sYES, HAVE U CHECKED FOR ALL 12 SECTORS? 

BNE 6$ IF NOT, LOOP BACK & CHK HOR FRM NXT SECTR 

JSR PC, CHKER ; CHECK IF 8 ANY BIT IN RKER IS SET, 

:TF YES RETURN HERE 

ERROR 36 i RKER pir SET ON DOING RO FMT 
QS: CMP #2204, OR! Does "race Sri ¢ CONTAIN FUNCTION BITS? 

BEQ TST2e 

MOV #2204 GO ‘er xbetD RKCS 

MOV 1, SREGI TUAL RKCS 


;RKCS_DID NOT CONTAIN ’RD FMT’ 
sEUNCTION PAS ON COMPETION OF 


’ 
’ ’ 


iUTEST 22 CHECK READ’ CYLINDER O, SECTORS O10 13 
¢ seTHIS. TEST FE PERE ORS” BREAD OF On Pe THE OFS rons 6 OF CYLINDER 0 
su) OA CNTR, RO ROY SE S OUT TRIN A CERTAIN TIME ON COMPLETION 
i82) If Pie Oe AER’ BIT SET? 
E CORRECT PSUEDO-HEADER (FIRST WORD OF EVERY) 
Bec oR, ITTEN IN. A eeev IOUS TEST) WAS RECEIVED. 
THE CORRECT WORD. 


CORRECTLY. 
) WORDS IN EACH 3 ARE °0’ , NOTE 


IF TESTING IS BEING DONE ON A SIMULATOR ONLY LAST SECTOR(13) 
ies READ BeCHee M3 ol TOR CAN STORE ONLY 1 SECTOR (256 WORDS). 
: HENCE BE READ BACK. 


WRITTEN LAST CAN 
;gregeeedtesenunesnenneanseansossesnesncuateansannsanesssninnaas 
#1, SLPERR ;SET RETURN ADRES FOR LUPING 
: ON ERROR (SW 9 
MOV RKCS,R3 
MOV DRIVAD, Rl 
MOV 1,R5 
MOV #OUTBUF , RY 
TST SIMUL ; TESTING ON SIMULATOR? 
HE. TESTING ON SIMULATOR READ 
BIS #13,R1 a TS OR OFC 1 
BIS #20, RS INCRMNT TO THIS AFTER READ 
9S: MOV #-14,R2 COUNT FOR 
INC RS , INORENENT 
: THIS AFTER 1 SECTOR 
1S: CNT. RESET 


WY) ROL oy Fe 
£004 tS°R CALE Poa T THE *CNTRL- 
RESET’ ROUTINE. A CONTROL RESET IS 








a te _— -0 
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O4-OCT-76 16 PAGE 4 
Tee CHECK *READ’, CYLINDER OC, SECTORS 0 TO 13 


4§: 


TST.SIN 


MOS 


:06 


9 
dR3 
3$ 
RO 
es 


PC, guns 


R1, SREG1O 


4S 


PC, CHKHE 1 
46 


R1, (R4) 


S$ 
R1, SREGO 
(R4), SREGL 
R1, SREG2 

44 
PC, CHKDAL 
40 


TP THe AND “': A CERTAIN TIME 
THE ’ ROY’ DOES NOT SET 
N ERROR IS REPORTED. NOTE THAT 
Defoe PLEA le 
PC “hy *CNT.RESET’ IS LOCATED. 
jTHIS I ey rode ERR & IF IT 


66 19 "et 10 
85° CHECK I SIN S 
IF SET, 00 DRIVE RESET TO CLR IT 


‘ADDRESS | THE DRIVE 
ADRS TO WHICH X-FER DATA FROM DISK 
‘SETUP WORD COUNT 

b ’ 


jD1D CNTRL_RDY SET ON COMPETION? 


NO, Harr FOR IT TO SET 
IF WAITED LONG REPORT 

ERROR once, Eh LOOP’ BAK & WAIT 
G0, GET RKCS ER 
GET SECTOR RODRE RE ERROR OC 
: a CONTENT 


TO ge L,SUR, SEC BITS 
RDY s, 
COMPLETION 
CTOR 


a 
ASe 


SET ON 


~~ 
a] 
w 


CORRECT DATA WORD ON 


aehRR 
rt 
“2 
ok 


REMENT CORRECTLY 
WORD, FROM CYL 
$S THAN THA 


Sm 


AS A RESULT OF "WRT FMT’ IN A PREVIOUS TEST 
;FIRST WORD OF EVERY SECTOR IS NON- 


SEG 0064 
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Sep 


0 0 > = b= b-= b= H+ b= bp op 2 Hs 
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or 
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* Perna 
5e5Q 
Seed 
3665 
Sey 
See5 
See— 010324 
557 010330 
Steg 
5559 
ar 
5ep3 
5eE5 
e568 010340 
Seep bigaua 
5e—7 010350 
e568 010362 
5258 oinase 
5671 010360 
5e55 g103%0 
E74 O10366 
75 010370 
7% 010376 
10402 
78 10404 
5Eaq 


es 
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Tee 


128: 


NOS 


16:06 PAGE 48 
CHECK °READ’,CYLINDER 0, SECTORS O TO 13 


MOV #-3,EFLG1 
MOV sOUTBUF +2, RO 
MOV 8-377 , COUNT 


Sn es 
fet 
BNE is 

CLR SREGO 
MOV (RO)+, SREG1 
MOV Ri, SREG2 
ERROR 44 

INC EFLG1 
BNE 11 

TST SIMUL 
BNE l 

INC Rl 

INC RS 

CMPB «#14, RS 
BNE 6 

ADD #4, RS 
INC R2 

BNE 1§ 

CMP 8204, R3 
BEQ 8 

MOV #204, SREGO 
MOV JR3, $REG1 
ERROR 24 

CNT. RESET 


: ZERO (PSUEDO-HOR) REST 377 WORDS 
IGE CK Te” The THE RES OF THE 377 


ALL OW ONLY % ERRORS 

‘INITIALIZE PTR TO 2ND WROD IN BUFR 
: CHECK WORDS IN THE BUFFER 

: i1s TH ? 

; E 

:INCRMNT PTR TO NXT WROD 

; CHK 

; YES, 

‘GET EXPCTD WORD 

;GET WORD 


T 
r DISK ADRES, ERROR IN THIS | 
T 


TOR 
A ERROR THE LAST 377 WORDS 
;READ FROM EACH SECTOR SHOULD BE 0 


ra 


; TESTING ON ON SIMULATOR? 
IF NOT TESTING ON SIMULATOR GO AHEAD 
ALL 12 SECTORS ON CYL 
en pg A TO NXT grec TOR 
U GOING T 0 READ B he Last LAST SecToR? 


if INCREENT *EXPCTD RKDA’ 
SHAVE U fap ALL 12 SECTORS? 
IF ya BACK & READ THE 


;NXT 
fees Kos, STILL HAVE THE "READ’ FUNCTION 


"EXPCTD_RKCS 
CS RECVD 


akc SGU grt. CONTAIN THE *READ’ 


~”n 
as 


see ee 
Oreste 


TINE, Pe CONT ROL RESET IS 
AFTER A CERTAIN 

RL_ROY’ DOES NOT 

THE saya Pence REPORTED. NOTE THAT 

;PC WHERE ’CNT. NT RESET? fs LBcATED. 


SEG O0ES 


MS 27( 1006) 132 -OCT-76 16:06 


Bee 


tht tatatha tatty 






BO6 


PAGE 49 
CHECK *READ’, CYLINDER 0, SECTORS O TO 13 


;THIS ISA VERY BESIC ERR IF IT 
TST ea: i CNTRL RESET CLEAR RKDB? 
gE 
V SREGO ie OF RKDB 
MOV ance, $REG1 T CONTENTS of RKDB 
ERROR RESET DID NOT 
: CONTROL, RE 


ivecl 3 CHECK RITE FORT’ OF TM IK 


BBIRARLSGLS 


Eee 


ot ta a 


ee 
aha ai at ab a atot 


ings res aes Te “ext ite Dis DISK. THE FIRST 
ity Sion is init aa NS . 


OD echt RESET A Fhe wo 
x es OWING CHECKING 1S Bon AFTER WRITING ——— 


aL: Fhe WITHIN A CERTAIN TIME ON COMPLETION 


iz is *SIN’ 

a F *HE’ 8 T ore 

:#4. IF Tore, 

pee 

: VEL OLIN ra Et: ag Lit: SHE ENG 


ee a Bae he NEXT SECTOR I CTOR 


aqegraliggin tno 
T2 OPE 


REE goo poem 
005903 


Saar rahe ame ee 


wn 
rs 
ities 


| 


#1 1g SLPERR ‘apt RETURN BORE FOR LUPING 





: ON 
CLR eo :(R3)=0, ETP O8 RPACE o BEING WRITTEN 
:(R3)-1; SURFACE 1 BEING WRITTEN 
MOV #-313,R4 +e! uP” COUNT 203 CYLINDERS 
MOV 8-14 Re :SET UP COUNT FOR le SEC 
MOV IVAD,R1 : GET DRIVE ADRES 
MOV 1,R5 :§ T 
INC cS 
CNT .RESET 














a ee er 


oT on 
Soak Pi 


2643 


SRR RRR OPRE DRE Ia Tae COCO ERE ROMO SGA ES. 


269€ 010640 


i021 


Brats? 


pierre 
618174 


012777 
10$777 


1 
O04 
B1a137 
104416 


104031 


BANG 


177777 
170612 
170572 
001362 


021176 


MACYZ1 27( 1006) 
-7& 08:47 


170534 


48: 


Ss: 


6s: 


CHECK * 


TST.SIN 


nov 


-OCT-76 16:06 PAGE SO 
T23 WR 


ITE FORMAT’ OF THE DISK 


3 THES BS A VERY 8 IF I 
Test 10 


: ok 1 Stn fs 
IF SET, CKD DRIVE RESET TO CLR IT 


; THIS WORD T0 BE WRITTEN. THE GC IRST ne 
s WORD S, CONSIST NG be THE IVE NO, 
;CYL ADRES, “SURFACE BIT SECTOR ADRES 

WHICH WORD IS TO 8 X-FERRED 


T AE WITH CORRECT CYL 
8 SECTOR ADRES 

itRiTE FORMAT, GO 
D 


sad 


: 


PRESS THER 
s 
ate 


za 
; 
B 
E 
a 
ts 


“Ww 


yl OR *HE’ BIT IS SET 
RETURN HERE. 

ILE DOING WRITE 

AS INDICATED IN 
STARTING AT <DSK-ADRES> 


MENTED CORRECTLY, 


ae tm 
230-8 
=— Ww 
3 
“RR 
gE 


as 
2 

is 
Be 


AF I 
i: is yy Mi TQ THAT 
O THE NXT SECTOR 


U GOING TO’ FORMAT THE LAST SECT 
Cc er ° 


‘ TNCREME RS CORRECTLY TO Peso RKDA’ 
;HA CTORS 


VE U FORMATTED ALL l2 SEC 





T 
TO WHAT RKDA BILL IREREMENT 


SEG 0067 


eT oe 
DZRKKD.P11 


oOo 
oo 


Serene: 


ee 


b= 0 + 0-2 0 0 -- = 0 -< 8+ 9-2 & <b -  ~— & <p Be 


ONONOKOVXD0ONOO00R00000 






DO6 


7 16:08 PAGE $1 
CHECK ‘WRITE FORMAT’ OF THE DISK 
: ON THIS CYLINDER 
NE 1s IF NO 1, -b00P BACK & FORMAT THE 
rex! St 
MOV 8-14, R2 RESET THE COUNT FOR 12 SECTORS 
Bit 637.1 ‘CLEAR T joe AORES BITS 
ST R3 SURFACE 1 
SNE es ; ’ 
INC R3 :NO FLAG 
ADO #20, R1 SH ARERENT T TO THE NXT SURFACE 
ROY R1,RS ; THIS 1S has RKDA SHOULD 
ar $40 Ri 160, TO Hh 
MOV R1,RS Insert FOR 
INC RS :EXPCTD RKDA 
INC RY ;HAVE U FORMATTED ALL 203 CYLINDERS 
BNE 1s *IF NOT, LOOP BACK & FORMAT THE 


:NEXT CYLINDER 


TEST eCheck READ FORMAT! FOR THE ENTIRE DISK | |” 


TUM SS SPRL Se OMENS DON SSN SSUTEREE f 


CHECK *READ FORMAT’ FOR THE ENTIRE D 
FOR TEST READ FORMATS THE ENTRE DISK, WHICH WAS WR 
#FORMATTED IN THE PREVIOUS TEST. THE FOLLOWING CHECKING 


lh RDY SETS WITHIN A CERTAIN TIME ON COMPLETION 
FUNC 


F RKWC OWED CORREC 
#12 SECTORS (1 CYLINDER) ARE READ AT A TIME. IF °SIN’ 
A DRIVE RESET IS DONE BEFORE READING THE NEXT 
sESECTOR, READING IS IN THIS ORDER CYL 9-SUR ; 
2#CYL Suk 1; CyL_1-SUR ; CYL 1-SUR 1; CYL 2-SUR 0; 
saCvL 2-SUR 1 YL 312-SUR 1. IF TESTING ON SIMULATOR, ONLY 
LAST cht INDER” (513) LAST SECTOR (13), SURFACE 1 IS’READ. 
«Sg apenas earner SEEEEERELESEEEEES 
MOV 81, STIMES ;:D0 1 ITERATION 
MOV #1$, SLPERR iBT he RETURN PORES | FOR LUPING 
CLR INOX1 et SEORE ING READ 
' ges eat ? "tern READ 
MOV DRiVAD, Ri 
MOV Re 
qs! SifuL TESTING ON SIMULATOR? 
prs #14533,R1 Le oe FoR CYL 312, SEC 13, SUR 1 
ON SIMUL CHECK ONLY CYL’ 3le, 
Se arace l 
BIS 814540, Re BEbA cHOD INCRMNT TO THIS AFTR 









. 11-DZRKK-0 
Pll 


Jocernoereadeed bf ‘ 
: 


~ 
o- 


011010 


ee re 


PLD e Ree nner cr chor tr eR RER BRR 


& 
a 
o 


22-SEP-76 


~ ee 27( 1006) 
08:4 


177777 
177465 
177764 
000020 


001000 


020710 
001170 


E06 


PAGE Se 
CHECK “READ FORMAT’ FOR THE ENTIRE DISK 


04-OCT-76 16:06 
T24 
001370 MOV 8-1, EFLG) 
Qn 
128: MOV 8-313, R5 
00:370 MOV 8-14, EFLGL 
ADD 820, R2 
1S: CNT. RESET 
TST.SIN 
118 COR fener 
"MOV Seer 
170300 MOV EFLG1, 2RKWC 
MOV R1, IRKDA 
170264 MOV #2005, IRKCS 
23: TSTB = ARKCS 
BMI 3$ 
INC INDX2 
BNE 2s 
J PC, GTYRG 
V R1;$REG1O 
BRKDAY 
ERROR 45 
170222 38: B17 #1000, IRKDS 
ISR PC, GT3RG 
MOV R1; SREG3 


ie SPU CEO GING HOR 


T UP COUNT FOR 203 CYLINDERS 


‘fats si ALL peatt 
RESET’ B CONTROY RES RESET IS 
: ISSUED BRD ae eng Gent CERTAIN TIN 


;IF THE *CNTRL 

;AN_ERROR I REPORTED. TRET 
; THE N ME T 
sPC *CNT.RESET’ IS L D 


;ADRES TO WHICH DATA IS TO BE X-FERRED 


2 
z 


NO LONG ENOUGH? 
HF Mee: Rebbe magn 
‘3 cet ae WHICH 


CONTENT 


24 
728. 
oa 
=z 
~4 
oO 
3 
cm 
ms 
me 
rr 
a" 
w 


cal 


; 
wn 3 


e25 


R MS 
HE CONTENTS. oF "RKDA AT THE 
oF NERROR. 
FMT WAS DONE STARTING AT <DSK-ADRES> 
TED IN EROR MSGE. 


IN SeT? 
T RKCS, ER, DS 
SK-ADRES WHERE ‘SIN’ 


41> 
Ta 


BAG 


R 


- 


SES 0069 


MAINDEC-11-D2RKK-D 
DZRKKD.P11 22-SEP-76 08:47 


C1i116 


0 +0 +--+ 6-9-6 po 


NOU SUIT 
o 
— 
~ 
fy 


Meesehi oes Cou UwR CERRO Nes 


7 


aut ity 


104001 


004737 


MACY11 27( 1006) 


021134 


170206 
001202 


170172 


001370 
160037 
001164 


001166 
14 


021224 


001202 


001162 


O4-OCT-76 16:06 
Te4 


4§: 


Ss: 


6$: 


CHECK ° 
ERROR 


JSR 
ERROR 


z SSSen353 8 3 = — 


FO6 


PAGE a 
READ FORMAT’ FOR THE ENTIRE DISK 


1 


PC, CHKHE 1 
46 


e , 9RKDA 
Re, SREGIO 


ORKDA, SREG1O 


;SIN ERROR ON DOING RO FMT 
;TO CYL INDICATED IN S$REG3 


;CHECK IF ERR’ OR 'HE’ BIT IS SET, 
IF YES, RETURN HERE. 

HE OR ERR WHILE DOING A READ 

iF ae "RKDA’ IN EROR NeGE GIVES 
SREROCPHT WAS BONE STARTING AT. <BSk ADRES: 
: INDICATED IN EROR MESGE 
‘DID INCREMENT CORRECTLY BY 12 SEC 


THE 
“TOP Back 8 CHK THE RXT. 


2 ‘ 
ALL HEADERS FOR THIS CYLINDER 


on 
ae 


os 


+ INCREMENT DRIV ADRES TO THE NXT SURFACE 


GO6 


MAINDEC-11-DZRKK-D MACYLI 27(1006) O4-OCT-76 16:06 PAGE S4¥ 
DZRKKD.P11 22-SEP-76 08:47 T24 CHECK “READ FORMAT’ FOR THE ENTIRE DISK SEQ 0071 
2867 011260 O62702 900020 _ ADD 820,R2 sTHIS IS WHAT RKDA SHOULD INCREMENT 
11 1006 IMP 1$ 2 Ro ree FEO SURF — 
e353 pt iess pene p31 00P 10S: CLR NOK ae 
Bliss Bt Bio us Roa Rater VERT Eis 
11304 -010102 MOV Rl Re ne IS WHAT HAT RKDA SHOULD 
B1125— Peethe oo0de0 seo, tots RB ONE ALL ei 
011314 O0140e BEQ TST25 XIT 
011316 000137 011006 IMP 15 iHEror, 00 Beet & READ FMT FROM 


jbeasessennansenernensesessee te Ente DIK ELLLLESRLLEE 


tETEST 25 CHECK 
bat re OE Ae WS fae AAS 
AL oe to Peedi tas Mea ANY 


eT POLLOU OWING RE CHECKING 
;# ROY fis WITHIN ae TIME ON COMPLETION 


0 IF *SIN’ 
-*% 9 


+ the ae on ERR OC FROM VERY SECTOR 
* WAS oF TED. rine WORD REFLEC 5 PME SOLUTE 
ADDRESS | 8, SUR 


: #DISK DRV @, CYL SEC#) OF THAT SECTOR. 
45. IF CONTAINED THE CORRECT WORD 
:#1F *SIN’ DRIVE RESET IS BEF 
S*THE NEXT oe YOR. READ IS DONE IN THIS ORDER SEC O11 
2300 s#CYL_O SUR O > Sec O11 CYL O SUR 1 => SEC O-1E CYL 
2901 :#IF TESTING ON SIMULATOR ONLY LAST CYLINDER (312), Last 
2902 *eSECTOR (13) SURFACE | READ. 
2903 HEHE HHH HHHHHHHHHHEEHEHEHHH HEHEHE HE i BEBE 
23904 011322 o00004 +éT25: SCOPE 
2905 011324 012737 000001 0c01206 MOV #1 STINES. D0 1 ITERATION 
011332 012737 011376 001110 MOV #1$, SLPE Sef! URN ADRES FOR 
ve ING ON (SW) 
011340 012703 033240 : MOV SOUTBUF , R3 
011344 005004 CLR RY sELAG CLEAR WHEN READING SURFACE 0 
10 : READING SURFACE 1 
11 011246 013701 001350 DRIVAD, R1 :GE VE 5 
2912 011352 005737 001344 TST SIMUL :TSTING ON SIMULATOR? 
2913 011356 1403 BEQ 10$ IF NOT BRANCH 
2914 O11 1 014533 BIS #14533, R1 :SET S BITS FOR LAST CYL (312) 
2915 011364 BR 15 sLAST SECTOR (1 3), Smence I 
1g 11366 1 177764 10$: MOV 14 RO T COUNT FOR 1e 
17 11 1 177465 MOV #-313,R5 oF UP COUNT FOR 35 TOP INDERS 
2919 011376 104413 1S: CNT. RESET 


ae Os a “BCA FO FOR “he nT 1s 


ISSUED AND AFTER "a CERTAIN TIME 


Res 





ab pit tek 


r 


PRES RRER cui nu a UUW Mure eS Read arin iat yk 


ttl 27( 1006) 
ZRKKD.P11 22-SEP-76 08:4 


001356 
167724 


177777 
167714 


oocoos 
167674 
001356 


Doiebe 


001000 


020710 
001170 


021134 


167714 


167700 


167636 3$: 


4§: 


HO6 


04-OCT-76 16:06 
Tes 


PAGE SS 
CHECK READ’ OF THE ENTIRE DISK 


TST.SIN 


CLR 
MOV 


INDX1 
R3, IRKBA 


8-1, ORKWC 
Ri, ORKDA 


#S, JRKCS 
@RKCS 


gROX! 
PC, GTYRG 
R1,SREG1O 


45 


sIF THE *CNTRL RDY’ poss | NOT SET 
;@N_ERROR I T THAT 
;THE PC IN THE 
: *CNT.RESET’ IS LOCATED 


eee tera YER’ goa tt 
i Och GO week FO TES 10 

:GO CHECK SIN, IF SET DO 

:DRIVE RESET TO CLR IT 


;ADRES TO WHICH DATA IS TO B X-FERRED 
; THE DISK 

;SET_UP_WORD COUNT 

Taig THE ORNS WITH CORRECT 
;CYLINDER & SECTOR ADRES 

;READ, GO 

;DID CNTRL RDY SET? 


16, eve an rouse 
"NOT, “LOOP BACK. & AI OR IT 


yy ’ oe 4 T 

+ ef NTO ‘DR cr, or Le 
s CNTRL RDY DID Not set 

HTNOICA N <DI ‘.. 

:*RKDA’ IN EROR MSGE GIVES THE 
CONTENTS OF RKDA AT THE TIME OF ERROR 


;DID aE anee 


“mse 
sv 
3 
S 
= 
F 


gagh an 
g 
: 


: 
. 


mi 
BS 
i 


He 
: 


DOING 


ae 
Son 
| om i 
=z 
D 
<= 
e 


ND 
T 


ime 


5 38-SoRRR 


TEST THE 
T WORD _OF EACH SECTOR IS UNIQUELY 
TEN WITH A WORD GIVING THE 


me 
4 


' S96 0072 


MAINDEC-11-DZRKK-D ae 27( 1006) 
DZRKKD.P11 08:4 


RoKod Se cee 


roo 
ob 
or.cO 


Se URERCORE RATERS SE RREERERS 


ONOOOO0O0000 20000 
0 hhh ee eee 


Bfstetetsteteintets 
at 


eh 
WONMUNS WHO 


SERS USNONTSRSS 


04-OCT-76 16:06 PAGE SE 
Tes CHECK *READ’ OF THE ENTIRE DISK SES 0073 


ABSOLUTE M00 ADDRESS OF THAT SECTOR IN 
OE Sache Fo conta eoheCt i noRBS 


S means 


40 
une 


Va a gees og gy ng eae ae 
: TEST o 


i 
+ 


;# bP porns 
:# T 
a ove alter tera cee 


MOV 


MOV 
MOV 
MOV 
MOV 


NOP 
CNT. RESET 


BEQ 
MOV 
MOV 
ERR 


we 
Re 


AD 
- <£ 
=z 


SRBRIGT BBP 


i tcind Et 
R22 
2 


ae 
w 


ees 
AOR 


+ EU i To ate seestt D sls te LOGIC. - ‘ies — 
IZE 


; TIONS 
tie rtat ge POINTER TO THE FIRST 
: INDX1, WHEN 0 INDICATES SEEK IN FWD DIRECTION 
; l I I 










, SEC ADRS. 


YES, 
NO,’ GET EXPCTD RKDB 
GET RKDB RECVD 


ae SHON a ae: SECTOR 
OR RK11D, AFTER READ 


aes yaa 


; HAVE 
;1F NOT, LUP BAK & CHK THE NXT 


RESET THE COUNT FOR 12 SECTORS 
*CLEAR SECTOR, SURFACE BITS 
:DOING SURFACE 1? 

iYES, BRANCH 

: INCREMENT THE ADRES TO NXT SURFACE 
*GO READ SURFACE 1 


; INCREMENT TO NXT CYL 

;HAVE U CHKD ALL 203 CYLINDERS 

7} Ae LOOP BACK & CHK THE NXT CYLINDER 
’ 





KIN Dire WITH Pre VELOCITY 


RESET IS DONE TO INITIAL 















ITERA 


NICATES SEEK IN REV DIRECTION 


; SET gig ADRES FOR LUPING ON 
;EROR (SW 9) 


DO CONTROL RESET 
i fits IS A CALL FOR THE ’CNTRL- 








a 
r 


MAINDEC-11-DZRKK-D 


OZRKKD.P11 


SESRRARSS Uda aaa canbe ee eae eearisctsi 


‘ 


SoBe ERS! 


: 


Seaaa? ZNO 


OOOO000NO VB0OOOO0O00O 


3 


. 
<£ 


= 


012040 


MACY11 27(1006) 
22-SEP-76 08:47 


001162 


001164 


JO6 


O4-OCT-76 16:06 PAGE S7 
Teb CHECK *SEEK’ FUNCTION, WITH DIFFERRENT VELOCITY MODES 


10$: 


TST.SIN 


MOV 
BIS 
MOV 
MOV 
CHKCRDY 
ERROR 


=p 
+m 


Roaan 


: a80% 


sRESET’ ROUTINE. A CONTROL RESET IS 

Pie "hrm nov? pore at 

ite Pe a Tp FE Aree NOTE 
“EAT FE 3 ce [BcateD 


:THIS SA C 
0 TEST 10 

G0, CHECK IF SIN IS SET, IF SET 

:DO’DRV-RESET TO CLEAR If 


;GET DRIV-ADRES 
SET CYLINDER BITS 
THE DRIVE 


gos te. *G0’ 


;GO CHECK IF CONTROL RDY IS SET 
;1F SO, SKIP THE EROR MESSAGE. 


>*CNTRL ROY’ DID NOT SET AFTER 
;SENDING CYL TO THE DRIV, *ADD ACK’ 
;FROM DRIVE COME BACK 


; THEREUPON SETTING ’CNTRL RDY’ 
;DID R/W/S RDY SET? 
BRANCH 


: 
mm 
=z 

eH 


= 
R AORgr Ne 
R o@ROme~<Re 


geneaees 


Sees ee es Sees ee ee ee ee wee ee es ee 


zm 
a 3s 
RZ BSR 


ives, GET EXPCTD? 
:RKDA CHANGED AFTER DOING SEEK 


;ADRES THE DRIVE,SEC 0 


CS STILL CONTAIN THE 'SEEK’ FNCTION 


— SES 0074 


gs 

seas 2 
7 

sexe $h 

aeeyy 8 


- 
£ 
~~ 


Seis: 


QOdOOO0N00000 
= 0 = ot ee 


fur 
oe 
i 
we 
—-O 
245 
a8 


ee 


8 
o 


WWW WWW WWW) WWI WI GIGI) WIIG) WI GI OI IOI) CI) WII I 6 GI GG Ga CI I Gd 
FAESH SSRVRR VOR HBV VRR VON Baw ow sww-o BS VEN eS 


KO6 


MACYLI 27(1006) O4-OCT-76 16: S 
7% nes 4? ree CHECK Pex PENCTION, WITH DIFFERRENT VELOCITY MODES SEG 0075 
O335t7 levee + a fh = 9 teat IBUS ADRES sea! i 
0 ha2005 MOV t2hbe ORS : 
; 033240 aa (R3) , OUTBUF iat FoR ier ROE ADEYR (FROM 
0 * BEG is” eo eee ze ICH SEEK EEX’ Ue DONE” BEF ORE 
Sot TeS CLR REGO STORE SECA FROME WHERE 
033240 001166 MOV OUTBUF,SREG2 § ;GET HDR RECVD 
3 ERROR 43 WRONG HOR WAS RECVD FROM CYLINDER (ADRES 
ENE TO TS CYL BEFORE” READING HOR > 
; USING "Reap Poker 
001356 11S: TST NOX! see IN REVRSE DIRECTION? 
Pot Gan INO’ reFENT PTR TO NXT SEEK ADRES 
001400 CMP WSEEK2+2, RS ‘Dove Ul S IN FWD DIR? 
001356 ite tox. + Bb £00 fat Ove SK IN REVRSE 
12: TST -(R3) sPOSITION PTR TO NXT SK IN REV 
001370 CMP #SEEKO-2,R3 :DONE WITH ALL? 
1 BNE 1S “IF NOT, DO NXT ONE 


ee TECK DRIVE RESET FROM LAST CYLINER 


‘TES _ oe CHECK DRIVE RESE 
ats HHEPDS PRE, FORLTTONED 8 THEN "eae § SUE ISSUED. 
:#IT’S CHECKED IF THE HEADS WE 
HEDOING A MORD READ. § GHECKTIG BART THE CORRECT O ERO 
RECEIVED. IF TESTING ON SIMULATOR THIS TEST IS SKIPPED. 
so Fcc mR em 


+8127 
po00c0S 001206 MOV #5, STIMES ::D0 S ITERATIONS 
001344 TST STAUL "RU ON A SIMULATOR? 
BNE TST30 ag’ EXIT 
001332 MOV RKCS,R1 
CNT. RESET 


CONTROL RESET 
mle Pts A CALL FOR THE *CNTRL- 
pf mn Corot, RESET IS 
ATER. A CERTAIN TIME 
ty Me glee et 
pairs TE 


i The Ace IN’ 
Tas SA SoA BREIC 7 i e 

ee Bars ek ESA 

p33240 MOV #OUTBUF .R3 ~— WHERE DATA WILL BE READ INTO 

- my alee 

014500 BIS #14500, RS SET cy jBORES=312 | OCTAL) 

167120 MOV RS, IRKDA SPORES THE B DRIVE, LAST CYLINDER 

1 167106 MOV #-1, IRKWC 


MAINDEC-11-DZRKK-D 


OZRKKD.P11 


147 


tates 
bse 


— GB rule tahoe 


Seed. Cue crvervcrverperperparnarver perverted 
A) 


I WIG) GI GIG) G) GIGI GI) GIG) GI GI GIG) GI GIG) GIGI) GC) GIGI) GI) GI GIG) GG) CG) C1) GI GI CI GI I GI I) GIGI 


SESRRLGSSSESERE SE BIS Voll PINS oe GR AT 


RSS 


Ol2226 010377 
Ol2e32 012711 


Ces 


: 


o0O 00 00 OO 
Tu 


MACY11 27(1006) 
22-SEP-76 08:47 


167104 
oco00S 


001i 
bb ies 
001166 


000015 


000100 
177763 


1$: 


167024 4S: 


ss: 


LO6 


04-OCT-76 16:06 
Te7 


PAGE S9 
CHECK DRIVE RESET FROM LAST CYLINDER 


MOV 
MOV 


CLR 
CNT.RDY 


MOV 
CNT.RDY 


R3, JRKBA 
#S,aR1 
RO 


RO 
4§ 
PC, GTYRG 
eb 


#140000, aR1 
6$ 


PC, GTYRG 
22" 


; INTO THIS MEMORY ADRES 
;READ, GO 


TI 
175 MS FOR 11/45 
woh READ? 
2 WAS DONE CORRECTLYS,@ 


OT SR 


IS A CN.ROY ROUTINE 
pa cnr RDY_ TO By TO set 
ie IF MiTHiN’ a MEERTAIN TT TIME 

NTRL RDY DOESN’T SET AN 
te SSAGE IS GIVEN. WAITING TIME 
3883 MS FOR 11/20, 175 MS FOR 11/45 
i018 R/W/S RDY SET? 

BRANCH 


TEU RON’ SLOWER MACHINE 


RID. hor SET AFTER 
RR att SET? 


ia mr 
m ob 


SEQ 0076 


SOUNORUO SS Gatos Soe GNSS SOR Han 


MO6 


MAINDEC=11-DZRKK-D mACY LI 27(1006) O4-O0CT-76 16:06 PAGE 60 
DZRKKD.P11 22-SEP-76 08:4 127 CHECK DRIVE RESET FROM LAST CYLINDER SEQ 0077 
l 6$ INC RS ip SFT ON RS TO SpetD RKDA 
350 pies SORES 166770 : CMP RS, IRKDA DID THE CYL S BITS IN RKDA GET CHANGED? 
3206 012350 001406 BEQ 75 : NO Beis 
3207 oi 352 10537 001162 MOV RS, SREGO Get XPC D. RKDA 
153e¢ 1 166756 001164 MOV SRKDA, SREG1 RECVD 
eat 012364 104054 ERROR 54 ye PRTS IN RKDA 
12 1 12777 177777 166740 7$ MOV #-1, IRKWC Re ee ee eee 
#516 piesse steed 166736 : MOV R3, ORKBA ; INT EAD 1 WORD og 
214 012400 010477 166734 MOV RY, JRKDA *FROM THIS DSK ADRES-CYL 0, SEC 0 
316 012404 012711 oo000S MOV #5, 9R1 am, GO 
3218 012410 ooso00 CLR RO 
3219 Ole4¥l2 104414 8S: CNT. RDY Mea al RAY 1B" 
iM WAITS roe en Y wes 
3 iPruthea ce pra TI 
st i | “bby inn. he” 
Bes NS FOR cian. bnLTiNG TiN LAS 
012414 020413 9S: CMP R4, IRB WAS THE CORRECT WORD READ? 
bie¥i6 001407 BEQ TSt30 : int EXIT 
12420 010437 001162 MOV RY, SREGO GET EXPCTD WORD 
012424 011337 001164 OR3, SREG1 GET WORD RECVD 
012430 010437 OO1166 MOV RY, SREG2 GET DISK ADRES WHERE ERROR OCCURED 
seate Fe wate yates hs Oe MOT SEED. GF TEST 
‘WERE SUCCESSFULLY DONE THIS 
sERROR COULD MEAN THAT DRIVE -RESET 
*DID NOT BRING HEADS BACK TO O. 


hab b tah ba tahalalalalalalahyt-$-5-5-t-dalelal -b-Sabet-t-t-tab-tab-d-tylad-teiah-t-5-$--t ta tall totak beta tte 
i eTEST 30 "WRITE’ - 256 WORD BLOCK ON SECTOR 0, CYLINDER O 
VTHE TEST BELOM SHOULD BE CONSIDERED AS & A SET UP 
THE FOLLOWING TEST. IT WRITES A BLOCK OF WORDS I 
‘SECTOR 0, CYLINDER O WITH A SPECIFIC PATTERN AND THIS WRITTEN 
; BLOCK ie BE MADE USE OF IN THE NEXT TEST TO CHECK 
WRITE-CHECK’ AND ’READ CHECK’ FUNCTIONS. 
euseuehunegenenneateaientranetsseGhAGaA0sK0AEEHEioHEaHEaHER 
012436 po00004 +6130: SCOPE 
i 104413 CNT. RESET :60 DO CONTROL RESET 
THIS IS A CALL FOR THE ’CNTRL- 
T’ ROUTINE. A CONTROL RESET IS 


Te, Pca ERO ad is Ite ED. 


i ty 18 VERY BASIC Fi IF IT 


K TO TEST 
O1e442 104421 TST. SIN reek IF SIN fs SET, IF SET 
:DO DRIVE RESET TO CLEAR IT 


MAINDEC-11-DZRKK-D 
DZRKKD.P11 22-SEP-76 08:4 


3574 C12444 013704 001332 


Oisses 013737 0150 


SS pe eee 
: 


wuits 
Zcwne- 


012576 004737 021142 


a 27( 1006) 


l6b62e 
166616 
166612 


001202 


NO6 


O4-OCT-76 16:06 PAGE 61 
T30 


1S: 


4§; 


WRITE’ - 256 WORD BLOCK ON SECTOR 0, CYLINDER 0 
MOV RKCS,R4 
gg arene nee, ft oe 
iOUTEUFD, WITH 8B TICULAR TTERN 
iar ING H HE TAS WORD IN THE BUFFE 
EoD a ee RE Art 5 UHERERS 
iT oaYTE WILL Be Fae COHeL ain LO BYTE, 
A DEC COUNT PATTERN FROM 
TE THE BUFFER WILL LOOK LIKE: 
0 1 I11 111 1 60 000 000) 
: QUTBUF +2 (1 111 111 0 00 000 001) 
LAST WORD (0 000 000 O 11 111 111) 
ROY 6177401, Ri ; PATTERN off NUMBER 
MOV book nT ae FOR 
MOV n77400- R3 BET uP THE FIRST SRS TERN TO 8 WRITTEN 
MOV R3, (RO)+ up FIRST Mo WORD IN 1/0 BUFFER 
INC t PACREME 
ADD R1,R3 UP NEXT YORD PA TTERN 
MOV R3; (RO)+ RIT IT IN NXT I/0 BUFFER WORD 
INC R2 ‘HAVE U WRITTEN ALL 256 WORDS 
BNE 1$ IF NOT GO & WRITE NEXT PATTERN 
MOV #-400, IRKWC WRITE 256 WORDS 
MOV #OUTBUF , JRKBA STARTING FROM THIS BUS ADRES 
MOV DRIVAD,SRKDA § ;10 THIS DISK ADRES, CYL 0, SEC O 
MOV #3, 9R4 WRITE, GO 
STB R aa CNTRL ROY CLEARED AS GO WAS SET? 
OCR Be, ETaRG YER» ab rece 
ERROR 30 sSNA RL ROY, FR, Ror CLEAR AS GO WAS SET 
CLR R2 
TSTB = ARKCS sDID CNTRL RDY SET? 
BMI 4 :YES H 
INC R2 . ; WAT TED LONG ENOUGH? 
BNE 3$ -IF NOT, LUP BAK & WAIT 
IF YE ER 
JSR PC, GTYRG GO, Get RKCD, ER, DS, DA 
MOV DRIVAD,S$REGIO ;GET THE STARING 
BRKDAY dt CONTENTS OF SREGIO INTO 
ERROR 31 :CNTRL RDY ¥ p18 NOT SET ON COMPLETION 
OF WRIT 256 WORDS ON CYL O, SEC O 
: RKDA’ OERORS MSGE GIVES THE 
:CONTENTS OF RKDA AT THE TIME OF EROR 
WRITE WAS DONE STARTING AT <DSK-ADRES> 
* INDICATED IN EROR MS 
ISR PC, CHKHE :CHECK IF 'ERR’ OR ’HE’ BIT IS SET, 


SEQ 0078 





012602 104032 


Bee ai 
1 


~- 
ee 
—-OoO 
~ 
gay 


012672 00004 
O12674 104412 


o- 


eT aRNR Ya REN 2 
= 





| 
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166526 


001162 
166514 


001164 


001 ibe 


BO? 


04-OCT-76 16:06 PAGE 62 
730 "WRITE’ - 256 WORD BLOCK ON SECTOR 0, CYLINDER 0 
IF YES RETURN 
ERROR 32 cokes ERR BIT ‘ “on gpgine WRITE OF 
iH rust oe oF <DSK-ADRES> 
: or ’ IN Ives THe 
c$ CMP RO, ORKBR {CONTENTS OF coe AY fie te 
=e ; YES, lls ated 
MOV aE See) ‘get TReRvB 
ERROR *RKBA DID NOT I 
:(BY 1000 OCTAL ) AFTER WRITE 
; COCTAL) ON SEC 0, CYL O 
&$: ISR PC, CHKWC :CHECK IF RKWC L TO 0; 
TF NOT RETURN 
ERROR 34 sR DID NOT LOW, AF E 
7S: JSR PC,CHKDA CHECK f Fie InonereN TED "Daath 
:IF NOT RETURN HERE 
ERROR 33 :RKDA DID NOT I BY 1 AFTER 
A WRI Of ese Ince 0. SEC 0 
8s: ISR PC, CHKER ; CHECK F ANY IT IS SET 
ERROR 236 i ER BIT apt ON SRS ING WRITE ON 
:CYLINDER 0, SECTOR O 
38: cre s20e aR4 : : RKCS STILL CONTAIN THE WRITE BITS? 
Q TST3! :. XIT 
MOV 8202, SREGO > GET CTED RKCS 
MOV gry, SREG GET RKCS RECVD : 
ERROR =RKCS DID NOT CONTAIN THE 'WRITE’ 
‘BITS AFTER THE FUNCTION WAS DONE. 
3 IBTEST SL" Check THAT WRITE MAS OONE CORRECTLY ©" 8 
1 
TH ree ae eae THE 'WR 3 WORDS DONE IN PREVIOUS 
OPERATIONS IS AS FOLLOWING: 
CTOR 0, CYLINDER 0 
ty at 10 Aer BUFFER 8 “oy 
#2) 8 ok tte INSTA. THA A THAT 1S REO READ (STARTING AT "OUTBUF’) 
:# WITH THE DATA THAT WAS GENERA VIOUSLY 
#3) REPORT AN ERROR IF THE RTA READ BREK FRON DISK DOES 
*# T H DATA THAT WAS SUPPOSE TO HAVE BEEN WRITTEN 
; ,ingeenebtonguecenceneensneonensnesnennusnsnsoannansanenosnacton 
4s 


SET 


$00 09 CONTROL RESET 
ts IS A CALL FOR THE *CNTRL- 
RESET’ ROUT SET IS 


Pig me 1 ie 


8 BACK TO TEST 10 
OCCURS GO BACK TO TES io 


SES 0079 


‘ 


CO? 


‘WAINDEC-11-D2RKK-D ACYL 27(1006) IN-OCT-76_ 16:06 
08:4 T3l 


63 . 
DZRKKD.P11 22-SEP-76 CHECK THAT ERSTE WAS DONE CORRECTLY _ SEG coed 
C1267 104421 TST.SIN sCHECK IF SIN IS SET, IF SET 
ae D0 Saree Rese! TO CLEAR # 
rf Ss 1) 5 ee aReD In THe SUFFER 
#e pigzos phere} gs: CLR rts ’ Fue Hon DORE BrrER 
O1e712 INC RO STARTING AT 'OUTBUF’ 
a 58 
1 a i oe 
61 81 15575 Beiaso | MOV solar sense ISTARTING FROM THIS DISK ADRES 
O12742 012777 COO0OS 166362 MOV 85, IRKCS ;READ, GO 
1 195777 166356 1s TSTB = ARKCS sDID CNTRL RDY SET? 
l 100411 BMY 2s :YES 
336° Qlerse D0s200 INC —s_-ROD ;WAITED LONG ENOUGH? 
338¢ i BNE 1s : IF NOT, LP & WAIT 
; r 
1 go? 920702 ISR PC. GTYRG iff Re T aa ER, DS, DA 
i iz? 001350 od1202 MOV ORIVAD,SREGIO GET THE STARTING ADRES 
l 104416 BRKDAY :G0 TO BDAY’ & BREAK CONTENTS OF 
01277 104045 ERROR 45 AE OTD ORM SET AFTER REM OO 
: OF Barbe FROM CYL i 
:*RKDA’ IN EROR MSGE GI 
s CONTENTS OF RKDA AT THE TIME OF EROR 
READ DONE STARTING AT <OSK-ADRES> 
INDICATED IN EROR MESGE 
1 001000 166320 2S: BIT #1000, IRKDS :IS SIN SET? 
tse Bis 5s a pm Male De 
13014 61 iat. : MOV 8177797, Re 
1 i seit MOV sOUTBUF ; R3 
l } 1 MOV #-5.R5 
1 177401 6S: R00 #177401, Re 
1 1 C R2, (R3)';WAS THE WORD SAME AS THE WORD 
; THAT WAS SUPPOSE TO BE WRITTEN 
013036 001414 BEO 7$ YES, BRANCH 
foo ! MoV sR Fe ERROR oF WORD 
ip ets re peal ee 001162 ADD Rat saeco get IS IN ERROR (EXAMPLE=1,2--376, 377,400) 
13 130S2 010237 001164 MOV R2, SREGI :GET EXPC CTD WORD (THAT WAS SUPPOSED’ To 
15 013056 011337 001166 MOV (R3), SREG2 BE WORD RECVD (THAT WAS READ BAK) 
Ea 013062 04055 ERROR SS sOID NOT BACK THAT WAS SUPPOSED 
i :TO HAVE WRITTEN PREVIOUSLY. POSITION 
si8 GORD § (SRERO) See Oe 
em 013064 o0S205 INC : z , 
3421 013066 001403 BEG T§732 EXIT 
te 013070 005723 73: TST (R3)+ : inc NT BhOENTER TO NXT WORD (THAT 
53 0132072 005201 NC R1 :HA CHKD ALL 25& WORDS? 
3425 013074 001365 BNE 6$ :TF NOT, LUP BAK 8 CHK THE NXT WORD 
B42€ :IF YES, EXIT 





SES 0081 


DO? 


PAGE 64 
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See ‘fee 5 Ww ot SeY anc Yes . 
Votv: giveaMereey 686 fg 8 5 estan, ES. Sus 8 
socks Exe WinbSig SE y ® fice SS 0¥K, oan OF 
SE ope a Suche 
S459 Sub ve vas af 9 SEeedlag ; gree 
wee? Seetsatersse =, BueauaPasee Sasubieatan’s 
ee oe 
Sbase 
oad 
bd a 
¥ 
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aad &  § 4% 
me Ue 


fy RRRSSRAAASSSASSESSALELESLEFSSLALELELSE SESS SLES SLES ELLA ELELLES SS 


: 
: 
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at 3 EMR 8 s¥en Mees ees 
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Basti mB epeeesene Peak’ § nook cask gost 
i Ea ; 
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sseaaas ° 2 § 8 3a 
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DZRKKD .P 22-SEP-76 08:4 T32 CHECK “READ CHECK’ FUNCTION - CYLINDER 0, SECTOR 0 ' SES 0082 


3483 013242 013702 001359 tS: MOV DRIVAD, Re as E 
RE Be nn I ORS ons iH! Hig, JE, PONE 
496 13eSe 001408 % BEQ 73 ’ 4 
eee Gi 3ee0 Bt SBT TES MOV Rea GREG :GET Bx pA 
13264 ERROR 62 *RKDA DID NOT INCREMENT CORRECTLY 
Ear ; (gy » ING ’READ CHK’ ON 
mas Sraees Boia Oe oa ee :DID RKB GT ACoA GON" T CHANGE, NO NPR'S) 
a gt rencid 033240 001162 MOV . ay SREGO :GEt erpe "5 RKBA : 
ae 513302 011437 OO1164 MOV aR4, SREGL GET RKBA RECVD : 
% 1 l ERROR 63 sRKBA CHANGED AFTER DOING READ CHK 
ae NOT ChANER Pap’ NO ig? -"s 
3133 013310 022727 oS2525 033240 es CMP #5252S,0UTBUF  ;’OUTBUF’ SHOULD Stitt ONT I HE 
3501 RO 3 THAT A te BP cHNING OF THIS TEST 
3502 52525 WAS WRITTEN INTO "OUTBUF’ 
3503 013316 001412 BEQ TST33 i AYES, (EX T ai tee ieeall 
3505 013320 012737 033240 001162 MOV *GET OF OUTBUF 
3508 013326 012737 OS2525 9001164 MOV sobeae gareie :GET pxectp WORD IN ’OUTBUF 
0133354 013737 033240 001166 MOV SU TBO” SRECE ;GET WORD FOUND IN *OUTBUF’ 
3e59 seneated eat on Oe ERD DA 5 Bork is Bonen ai 
3510 “CORRECTLY BEFORE, THEN THIS ERROR 
3511 fet AN te Ms DONE 
ie :0N "READ CHECK’ 
a EP ROME Te AE RR RETIN San ER Oe ecrOR g 
316 ;#TH THIS rest CHECK of tieT te CHECK’ LOGIC, USING THE 256 
3517 ineet D DA OOK (SECTOR 0, EYEINOER 6) WRITTEN IN. REVIOUS 
ste sie | OF bree PENCE THe TES WH tan WRITES THE 
3520 4256 HORD BLOCK ON THE DISK (AS WELL AS CREATING THE 256 
325} steeeebbensuensnesasessarosnsosanasassnntsansannSansEMCGHIAH434 
3523 013344 o00004 +6733: SCOPE 
we SAPS MS saaestanaeld 1 ON Oe ONT A ERE THe *CNTRL- 
3526 *RESET’ ROUTINE. A CONTROL RESET IS 
#e7 s ISSUED AND AFTER A CERTAIN TI 
3€29 : AN ERROR 1S REPORT ; nor aT 
3530 ee em AGE IS THE 
ee Ta ie Gen ele ee 
Ee idinkch ES PHA | 
3534 013350 104421 TST. SIN CHECK IF SIN IS SET, IF SET 
oe :00 DRIVE RESET TO CLEAR 
01 913701 0012 MOV RKCS.R1 
3537 Ol 12700 


MOV 8-400, RO 
MOV 


é 
: 
: 
; 
3 
é 
Fi 









3 


40 
41 


a re 
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013366 012703 


1 

1 1 

1 

1 1 
013404 Ol 


Bees 018777 


Olseé Ole711 
g1ae o0sDn0 
cress oon 
C13444 104030 
O13446 

013450 104065 


O134Se 032711 
013456 001403 


iSes 10N066 
013466 032777 
013474 001403 
Bissce Tosoe? 


yz 
SR 


-O0O 
— 
~ 
a= 
= 


age 


ate 


O0000 AB2000000 20000 


wae. 
: 


177777 
177401 
177400 


ieerig 
Boiss 1ee7i8 
000007 


020710 


140000 
020710 


00000: 165634 
020710 


165616 001162 


00 
165566 001164 


O34e40 165552 


Tese3e DOLies 
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T33 CHECK THE "WRITE CHECK’ FUNCTION - ON CYLINDER 0, SECTOR O 


1$: 


4§: 


S$: 


6$: 


7$: 


MOV 


FO? 






STARTING AT THES BUS ADRES 
:WITH thts DISK Bata BLOCK (CYL 0, SEC 0) 
;WRITE CHECK, GO 


;GIVE SOME TIME 
;01 RDY CLEAR AS GO WAS SET’ 


Soahensaee 

2 

oe 

io * 
2 


WRT CHK 
NCREMENT CORRECTLY? 


o- 


vO 
\ NOT INCREMENT CORRECTLY 
p00 RKBA INCREMENT CORRECTLY? 


ID 
SECTOR) AFTER WAT CHK ON SEC O, CYL O 





SEG 0083 
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013604 
1 19 
1361 
1 
1 


3624 


BRACES RSID 


& 
Bim 


ee 
OODO0000O0 
b= bb oe 


if 
3tle 
3613 
14 
1s Bi 2658 
18 13636 
21 
3618 
3613 
#20 
321 
356 
3624 
%e2es 
7 ae 
2628 013634 
3623 013640 
3630 O13644 
2631 013650 
332 
saa BiSEeS 
3635 013656 
2636 013660 
2637 O13666 
| 2638 013672 
2640 
2641 013700 
45 013704 
SE44 3710 
| 2645 
| 
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11 


4 
i 000206 001162 
11137 001164 
104024 


104413 
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T33 


 kTEST 


+6734 


1$: 


PAGE 6 
CHECK THE ‘WRITE CHECK" FUNCTION - ON CYLINDER 0, SECTOR 0 


CMP 8206, aR) 


Rov Ht SRE as Fr ERBCTD RKCS 
ERROR 


GO ho 
R1, $REGI GET RKCS REC 
24 sRKCS BITS CHANGED AFTER WRT CHK 


jteeaesesaeanenesaeaeresenenselacsenersenstaneaestatssuayaties 
4 GeK I T aoe e 
s#THIS TES Lites 


OF _RKBA 
SS bors NOT INCREMENT WHEN 
OPERATIONS: 


OPERATI 
IN MERORY (OUTBUF ) 
WORD BLOCK THAT WAS 
ut SHOULD HAVE BEEN 


ING READ BACK 
READ INTO THE SAME MEMORY 
WORDS TN THAT BUFFER ARE 0 


PREVIOUSLY CLEARED OUT. 
Stat ee Sa Br 
CNT. RESET 3;G0, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET’ ROUTINE. A Is 
ISSUED AND AFTER A CERTAIN TIME 
IF THE *CNTRL RDY 


THIS IS A VERY BASIC ERRS IF IT 
OCCURS GO BACK TO TES 

TST. SIN *CHECK IF SIN Is SET, IF SET 
"DO DRIVE RESET TO CLEAR I 

MOV RKCS,R1 

MOV #-400, RO ;SET UP COUNT FOR 256 WORDS 

MOV SOUTBUF , Re 

MOV R2,R3 

LR (R3)+ CLEAR 0 OUT T 

NORD ‘GORD MEMORY BUFFER STARTING 

BNE i$ :AT OUTBLF 

MOV 8-400, JRKWC *READ BACK WORDS 
*INTO THIS BUS ADRES (IBA WILL B SET) 

MOV DRIVAD,aRKDA So; ADRES (SEC 0, CYL 0) 
: HAS BEEN WRITTEN IN A 
‘PREVIOUS TEST WITH A UNIGUE PATTERN 

MOV #4005, aR1 "READ, GO, IBA SET 

LR COUNT 

TSTB Ss ORI ve CNTRL RDY SET? 

BMI 3$ 

INC COUNT ery LONG 

2g if LUP axe 8 WAIT 

ie PC GTYRG + RKCS 

MOV DRIVAD, SREGLO +e oe Sete’ 

BRKDAY ‘BREAK CONTENTS OF $REG1O 


OF 256 WORDS ON CYL co 
:DOES RKCS STILL KONTAEN THE WRT CHK SITS? 


SES 0084 


HO? 


MRINOEC-11-DZRKK-D macy 1 27(1006) O4-OCT-76 16:06 PAGE 68 
22-SEP-76 08:4 T34 CHECK THAT IBA INHIBITS INCREMENTING OF RKBA SEG cces 
3651 sINTO OR #, CYL SEC 
a5 013736 104045 ERROR 45 sENTRL ROY DID hotest AFTER DOING 
013740 004737 021142 38: ISR PC, CHKHE faa ERR’ Of "HE? BIT IS SET, 
sep 013744 104046 ERROR 46 eee T ON a FRG. READ READ FROM SEC 0, 
3657 see 1CATED- 5 
oS oF eee at Sie Fine oF EROR 
1374 020277 165364 4g: CMP R2, IRKBA ao RKBA INCREMENT? 
13789 pase? 011 SFY ORS, SREGO ie TE eT® RKBA 
4 O01 ibaa pe kes 001164 MOV JRKBA, SREGI iGET porte RKB 
3665 013766 104072 ERROR 72 INCREMNTED WHEN IBA BIT WAS 
3566 ry SHOULD NOT HA 
366 913770 : 001000 165330 SS: BIT #1000, aRKDS 1s SIN shat 
$e, o1808 o12700 : OP Ona?7-dRe on THAT THE FIRST WORD IN 
er : ari Te Is 497 (LAST WORD OF SEC 0, 
3672 sC¥L 0). NOTE THAT READ WAS DONE 
373 914010 0014 BEQ 6$ :T : THIS WRO WITH IBA SET 
74 014012 012737 000377 OOl16e2 MOV $377, SREGO 3s 1B BRD (LAST WORD OF THE BUFFER 
3675 014020 011237 O01164 MOV (Re); $REG1 GE WORD RECVD (LAST WRD FROM SEC 0) 
3676 014024 O1 001350 001166 MOV DRIVAD,SREG2  ;DISK ADRES WHERE ERROR OCCURED 
3677 :(SEC 0, CYL O LAST WORD) 
3678 DATA ERROR 
3679 014032 104044 ERROR 44 THE FIRST WORD IN MEM BUFFER (OUTBUF) 
3680 ; SHOULD NON- & SHOULD CONTAIN 
3681 THE LAST WORD BACK FROM SEC 0 
1 6$ TST (R2)+ 1M ett SOO TO T rT WORD — 
Pee Oise BYSSRE 77773 MOV We RS AN Oni Y 5 MESAGES FOR ERR 1 
3685 014042 7S: INC RO *CHKD ALL es WORDS IN THE BUFFER? 
O14O4 417 BEd TST3S 5 iYES I 
140% (R2)+ :ts WORD 0? 
01 001 BEQ 7$ ;YES, LUP BAK & CHK THE NXT WORD? 
3689 014052 001164 CLR SREG1 ERROR. GET EXPCTED 
3690 014056 014237 001166 MOV (Re), SREG2 GET WORD THAT WAS FOUND IN THE BUFFER 
3691 014062 01 MOV RO, RY 
36392 014064 000401 ADD #401,R4 
3693 014070 010437 OOli6e MOV R4, SREGO ;THIS *WORD #’ IN MEMORY BUFFER 
3694 : HAVE BEEN ZERO 
85 014074 104073 _ ERROR 73 :T WORD (STARTING AT 
36 :0 ) BEFORE READI 
pol { iBAK SEC O INTO 11. SINCE THE 18h 
338 OTT PTRST WORD OF (QU ) SHOULD 
: CHANGED, THE REST OF THE 
3701 SHOR D BE STILL 0. IF THIS ERROR 
ae THE BUFFER) AS 
ar HTNOTC te IN THE EROR SAGE) 


N READ WAS DONE FROM 
3705 ‘THE DISK, INDICATING THAT WITH IBA 
3706 :SET X-FER WAS NOT DONE INTO THE 
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Ww 
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RRRRARAN ISS: 


SaLR CRE G he PRS E REP N AN ADAMSON NNINGLY 


wii 


-11-DZRKK-D 

Pll 22-SEP-76 08:4 
14076 gos20s 

ee 

Biai88 BBA ze 
014194 op0004 
014106 104413 
014110 104421 
014112 012746 00340 
O14116 O1274— 014124 
014122 oo000d2 
014124 

014124 013701 001332 
014130 013700 001402 
014134 012720 014170 
014140 O1e710 O00340 
014144 105711 
014146 100376 
014150 Oi2711 oo0100 
014154 104420 o00005 
O14160 011137 ooL1162 
014164 104074 
014166 O00400 
014170 C22626 

014172 oe2e26 
014174 012777 014210 
014202 104420 oDD00s 


MACY11 27(1006) 


165200 


Grek HR 
T CHE HECK THAT I INHIBITS ——a OF RKBA 
AME MEMORY LOCATION. "WORD 


if GER RRPCRLAES WOTPEETEO wv 
ard 13136 ;;EXIT 


Pe eg BET TT 
TT as ha HE al lies etl oren veo 
OPE ESRI GB HG RU ets ER 


*#CHANGED RK11 we INTERRUPT TO PRKVEC™ NOTE ’ 
BE SET UP BY 


ETO 
cceeene tT Oe ET Ue One cauratamtey 
18136: aN oF Ee SET CONTROL RESET 
its ts A CALL BEBE THE *CNTRL- 
*RESET’ ROUTINE. A CONTROL RESET IS 
* ISSUED AND AFTER A CERTAIN TIME 
IF THE CNTRL ROY’ DOES 
AN ERROR IS TED. NOTE THAT 
:THE PC IN E MESSAGE IS 
!PC WHERE 'CNT.RESET’ IS LOCATED 
:THIS IS A VERY BASIC IF IT 
:OCCURS GO BACK TO TEST 10 
TST. SIN :CHECK IF SIN Is SET, IF SET 
:D0 DRIVE RESET TO CLEAR IT 
MOV #340, -(SP) 
MOV #64; -(SP) 
RTI 
S44: 
MOY RKCS,R1 
MOV ;GET POINTER TO RK VECTOR ADRE 
MOV #1$, (RO)+ :SET UP INTERRUPT VECTOR FOR RK11 
MOV #340, (RO) >SET PSW ON INTERRUPT 
STB oR :WAIT FOR CNTRL ROY TO SET 
V #100, 9R1 ‘SET IDE BIT IN RKCS 
WAT.INT ,S WAIT FOR INTERRUPT, ATLEAST 
337 US FOR 11720, 7’ us OR 11/45 
MOV @R1, SREGO ‘GET RKCS 
ERROR 74 iRKLI pio NOT INTERRUPT WHEN 
: , WITH CNTRLE RDY SET & GO 
BR 1s anes 
1S: CMP (SP)+, (SP)+ ;RK11 INTERRUPTED CORRECTLY TO 
‘THIS. RESTORE STACK POINTER 
(FROM RK11 INTERRUPT) 
CMP (SP)+, (SP)+ RESTORE STACK POINTER 
>(FROM WAT. INT) 
MOV #82, IRKVEC :IF T IS FAULTY POLLING OR INTERUPT 
: LOGIC SEC MIGHT OCCUR 
WAT.INT ,5 :WAIT FOR INTERRUPT, IF ANY 
:DUE TO FAUL It 


SEQ 0086 
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014216 


Saeaen § 
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001206 


165056 


165026 
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T35 CHECK THAT RK11 INTERRUPTS WHEN IDE IS SET SEG 0087 
BR 3$ 
: CMP (SP)+, (SP)+ T PTR (F 1 aeathde 
Be Sess, 8e)sHESTORE Stack PIR (Fnon Unt ht 
ERROR 20 TERRUPT. 


‘OCCURED. - FHER HAVE BEEN 
ONLY 1 INTERRUPT (TO 1$ ABOVE) 


3$: MOV SBADINT, IRKVEC RESTORE CTOR 
: UNEXPECTE RK11 INTERRUPT, 
MOV #340,-(SP) 
MOV #6SS, -(SP) 
RTI 
6s$: 


s LELAAALASRE REALL EARLE ALES RLALAA LALA ARAL LALA LEA ALALAAAAAAAEEE 
{ETEST 36 CK THAT WITH IDE, SET RK Fon aki ous AFTER INT TATION & COMPLETION OF 
;#THIS CHECKS THA ERRUP AFTER 
;#A SEEK IS INITIATED WITH "IDE’ BIT 


HINGE Prat ROE fii Ae cote 


;*THE SECOND INTERRUP 
:*THIS TEST ALSO BECKS THe POLLING LOGIC. 
eqexansd etsy Tear ASo HENS APART OF, THE POLLING LOGIC. 


+4735: SCOPE 

MOV #5, STIMES -D0 S ITERATIONS 

CNT. RESET ibo TROL T 
*THIS IS A CALL FOR THE ’ ~ 
*RESET’ ROUTINE. A CONTROL RESET IS 
; ISSUED AND AFTER A CERTAIN TIME 
TF THE 'CNTRL RDY’ DOE 
*AN ERROR IS REPOR HAT 
: THE N ERROR MES IS T 
;PC *CNT.RESET’ 
:THIS IS A VERY BASIC ERRS IF IT 
:OCCURS GO BACK TO TEST 10 

MOV RKCS, RO 

MOV DRIVAD,ARKDA = ; ADRES THE DRIVE 

JSR PC, DRESET *GO, DO DRIVE RESET 

ERROR 26 *R/W/S RDY DIDN’T SET AFTER DOING 
oe DRIVE RESET 

2S: MOV RKVEC,R1 
MOV #3$. (R1)+ : VECTOR ADRES FOR RK11 INTERUPT 
V #340, (RL) ‘oF PSW ON INTERRUPT 
ay #10 RD SEEK oO HiTHe i T 
WAT.INT , 300’ MATT" coe The DAVE tT 


T TER ADRES WAS RECVD 
sHaTT ING, Ute de 1.4 MS FOR 11/720 
ge IF INTERUPT DID NOT OCCUR 
MOV seoegReGO’ ice sRESTORE UNEXPECTED RK11 INTERRUPT 


M 
ERROR ; INTE OCCUR AFTER 
Derr, REPIAYED WITH IDE SET 


KO? 


MAINDEC-11-DZRKK-D MACY11 27(1006) O4-OCT-76 16:06 PAGE 7 
DZRKKD.P11 22-SEP-76 08:47 136 CHECK THAT WITH TE SET RK11 INTERRUPTS AFTER INTIATION & COMPLETION CF S SEG OOge 
33 tered 022626 3s eRe ioe (SP)+ INTERRUPTED TO THIS 
355 : ; RESTORE’ sthck Pol RTER CE ROM RAIL INTERRUPT ) 
ace 014342 022626 CMP (SP)+, (SP)+ sree ORE |S 
3824 014344 012777 014410 165030 MOV 85S, IRKVEC :SET UP NEW VECTOR ADRES FOR RK11 
3825 014352 19 d20000 BIT #20000, JRO -1S SCP CLEAR 
3826 O14 1403 BEQ 4§ sYES, 
3827 O14 11037 001162 MOV JRO, SREGO GET RKCS 
3828 014364 104076 ERROR 76 5 SCP T ere TO LAST 
3830 014366 104420 056700 4g: WAT.INT ,S6700 sMATT FOR DRIVE TO INTERRUPT 
33} Altri {ne ciBo MS 11720 
3833 :36 MS FOR 11/ 
3834 014372 012777 O04S26 165002 MOV #BADINT,ORKVEC ;IT’S AN ERROR IF BY THIS TIME 
Ee : 14400 004737 020710 JSR PC, GT3RG ten PaO cer R aS ER, DS 
3837 Bio 104077 ERROR 77° :RK11 DID NOT INTERRUPT AFTER (TO 
3838 ‘LAST CYLINDER) WAS DONE WITH IDE SET 
Soc piace poets Bf $s eRe 7a, (SP)+ 20K, IF RK TO THIS AFTER 
B47 é . >SEEK WAS LB ETED RESTORE 
3842 ; STACK WOOINTER (FROM RK11 INTERRUPT) 
3843 O14412 O22626 CMP (SP)+, (SP)+ sREST ORE STACK POINTER (FROM 
3845 O14414 012777 OO4S26 164760 MOV SBADINT,RKVEC RESTORE RK11 INTERRUPT VECTOR ADRES 
3846 *FOR UNEXPECTED INTERUTS 
3847 014422 032710 o20000 BIT #20000, SRO :DID SCP BIT SET? 
3648 014426 001003 BNE 6$ YES, BRANCH 
3849 014430 011037 o01162 MOV JRO, SREGO GET RKCS 
3850 014434 104053 ERROR : SCP D0 NOT SET AFTER RK11 INTERRUPTED 
3ee> O14496 017701 164GEH 6S: MOV _—@RKDS. RI a AOS eS 
3853 O14442 042701 017777 . BIC #17777,R1 :MASK NON-ID BITS IN RKDS 
3854 O14446 020137 001350 CMP R1, DRIVAD :CORRECT ID BITS IN RKDS? 
3855 0144S2 001414 BEQ YES, BRANCH 
3857 O144S4 013746 001350 MOV DRIVAD,-(SP) | ;PUSH DRV ADRES ON THE STACK 
3858 O14460 004737 021106 ISR PC. SHFTRT :G0 SHIFT RIGHT DRV 8 
2859 Oi wags 01637 001162 MOV (SP)+. $REGO :GEt TD 
3860 014470 010146 MOV R1,-(SP) *PUSH ID BITS ON SHE STACK 
secs biau7e oraes? | poriee Mov. CSPST GREG] © POP THE RECUD ID-BIT 
365 Bias raha ERROR (3? ' i MRONG TD Bit LERE RECVD IN 
3864 : TER WAS DONE (INTRUPT 
3865 $NODE, fap” INDICATES THE 
3866 D HAVE a 33) IN THE 
3867 HID alts, > RECYD: NOICATES THE 
3668 #’ THAT WAS RECVD IN THE ID BITS 
3870 O14S04 7S: 
3871 O14504 012746 000340 MOV #340, -(SP) 
ie sieis 014516 MOV #864S; -(SP) 
14514 RTI 
14516 64S: 


LO? 


MAINDEC-11-DZ2RKK-D MACYL1 27(1006) O4-OCT-76 16:06 PAGE 72 
DZRKKD.P11 22-SEP-76 08:47 T36 CHECK THAT WITH IDE SET RK11 INTERRUPTS AFTER INTIATION & COMPLETION OF © SEQ D0¢3 

14516 104413 ane pe CNT RESET ee :GO DO CONTROL RESET 

Oise Barr rece 164572 Bit 8] 60008, aFKDS paoes. Ce TRE peaye CLEAR DRIVE ID BITS? 

014536 017737 164564 001162 MOV JRKDS, SREGO 

014544 104050 ERROR SO tRONTROL RESET DIDN’T CLEAR THE 

:DRIVE ID BITS (13-15) IN RKDS 
OINSYE 022710 000200 8S: CMP 8200, JRO ;WAS SCP BIT CLEARED BY CNTRL RESET? 
1¥Bse OO1403 ieieie BEG 1313 - ; ives EXIT 
Bideed rorya ERROR 260° t CRTRE RESET DID NOT CLEAR SCP BIT 


5 SESE EE A SEE SEE EE EEA EAE EE EE EE HE EEE EE 
: ATEST 37 CHECK THAT WITH IDE SET RK11_ INTERRUPTS WHEN READ IS DONE 
;*#THIS TEST CHECKS THAT WHEN A DATA TRANSFER FUNCTION IS DONE 
;¥WITH IDE BIT SET, RK11 INTERRUPTS WHEN THE FUNCTION IS COMPLETED 
:XFUNCTION USED IN’ THI, TEST IS READ. 
HEHEHE HHGHHHE HEHEHE HHH E HEHEHE HEHEHE HEHEHE HE 


PLLC ELE MEV SVN Ht tlw hNEh 


014562 oo0004 +6137: SCOPE 
014564 104413 CNT. RESET ;G0, DO CONTROL RESET 
‘THIS IS A CALL FOR THE ’CNTRL- 
RESET’ INE A CONTROL RESET IS 
: ISSUED AFTER A CERTAIN TIME 
IF THE ’CNTRL RDY’ DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
;THE PC_IN ERROR MESSAGE IS 
:PC WHERE ’CNT.RESET’ IS LOCATED. 
‘THIS IS A VERY BASIC ERRS IF IT 
:0C GO BACK TO TEST 10 
O14S6E 104421 TST.SIN :CHECK IF SIN IS SET, IF SET 
:DO DRIVE RESET TO CLEAR IT 
14570 013700 001332 MOV RKCS, RO 
3910 Bt eo 013702 001340 MOV RKDA, Re 
3911 014600 013704 001326 MOV RKBA: RY 
31 014604 013701 001350 MOV DRIVAD, RI 
13 014610 052701 000013 BIS #13,R1 SET BITS FOR re 13 
3314 O1e14 18777 177600 164512 MOV #-200, IRKWC AD 200_(0¢ AL WORDS) 
1S O14622 010112 MOV Rl FRGn 1S yee ADRES (CYL 0, SEC 13) 
3916 014624 012714 033040 MOV sOUTBUF , OR4 yi THIS BUS ADRES 
sate Bt < ot ete Nov #15. (RS)+ VECT FOR RK11 TO INTRUPT 
33t8 Bt aeaa BtS54 O84 MOV #15, (fe a Bey BN INTERUPT 
3920 O14644 012710 900105 MOV *READ, Goo IDE 
$361 O14650 104420 127710 WAT.INT , 12771 1M FOR ont 75 1 INTERRUPT ON 
$323 RTT ING ones 337 MS FOR 11720 
3905 C's —+ 012777 OONS26 164520 MOV #BADINT, ORKVEC RESTORE UNEXPCTED INTERRUPT VECTOR ADRES 
2926 Olwe62 111037 001162 MOV. @RO, SREGO :GET RKCS 
Oi4666 (04101 ERROR 101 *RK11 DID NOT INTERRUPT AFTER READ 
WAS DONE, IDE BIT SET. 
3929 014670 OD0404 BR 1$+10 
3930 014672 O22b26 1S: CMP (SP)+, (SP)+ 0K, IF RK11 INTERRUPTED TO THIS 


331 014742 


3373 014776 
3374 015000 


015002 
015004 
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022626 
012777 O04S26 164476 
004737 021250 


012737 ryt 001162 


000004 
104413 


104421 
012737 O1S040 001110 


-; 
MO? 
04-OCT-76 16:06 PAGE 73 
137 CHECK THAT WITH IDE SET RK11 INTERRUPTS WHEN READ IS DONE - SEG 0090 


;REST STACK POINTER (FROM + Se INTERRUPT ) 
CMP (SP)+, (SP)+ ;REST STACK POINTER (FROM WAT. INT) 
MOV #BADINT, IRKVEC ;RESTORE UNEXPECTED RK11 INTERRUPT 


i VECTOR ADRES 
JSR PC, CHKER a ee Oe ANY a i RKER IS SET, 


ERROR 36 AD FROM SEC 0, 
ic Pek 1 PS RE 
ug: ADD #5,R1 REMENTED TO THIS 
CHP Ri, aR ee RKDA POR TNCREMENT MCORRECTEY? 
Q 2 BRANCH 
MOV R1, $REGO GET EXPCTD RTDA 
MOV JRO, SREGL fal KDA RECVD 
ERROR 40 RKDA ARETE NTED WRONG ON DOING 
2s: ISR PC, CHKWC CHECK THAT RKWC’ OVERFLOWED TO 0, 
TF NOT RETURN HERE. 
ERROR 41 *RKWC DIDN’T OURFLO AFTER 
*@ READ OF 200 WORDS 
3S: 
MOV #340,-(SP) 
MOV #64S, -(SP) 
64S oe 
CMP SOUTBUF+400,9R4 ;DID RKBA INCREMENT CORRECTLY? 
BEQ TST4O ; EXIT 
MOV #OUTBUF +400, SREGO’ -GeEt EXPCT RKBA 
MOV RY, SREG1 ra T RKBA RECVD 


ERROR 4e ALTER A DID_NOT INCREMENT CORRECTLY 
READ OF 200 WORDS 


5 SEE SEE AEE gE EE EEE EE EEE EEE EE ER EEE EEE EE EEE A EE EEE 
tATEST 40 THIS CHECK THAT RK11 INTERRUPTS AT BRS ONLY 


“IF > io NT R THEN AL 
+ SERROR IS INDICATED. IF FOR SOME REASON THE INTERRUPT 
; #LEVEL IS CHANGED FROM BRS. THEN CONTENTS OF RKPRI WILL 

HAVE TO BEC ACCORDINGLY AND STILL TEXT WILL 


; afegehgeioohetettetetainseeresnensossaseeacne 
CNT. RESET :G0, DO CONTROL RESET 
; THIS IS A CALL FOR THE *CNTRL- 
RESET’ ROUTINE. A CON 


TROL RESET 
‘ISSUED AND AFTER A CERTAIN TIME 
;IF THE 'CNTRL ROY’ DOES NOT SET 
:AN ERROR 3 REPORTED. pore THAT 
; THE PC_IN ERROR MESSAGE IS THE 


IS 


:PC SET’ IS LOCATED. 
; THIS 1S A VERY BASIC ERRS IF IT 
GO BACK TO TEST 10 
TST.SIN CHECK IF SIN IS ot IF SET 
DO DRIVE RESET TO CLEAR IT 
MOV #1$, SLPERR SET RETURN ADRES FOR LUPING 





NO? 


NAINDEC- 11-D2RKK-D MACYL1 27(1006) O4-OCT-76 16:06 PAGE 74 
DZRKKD.P11 22-SEP-76 08:47 THO CHECK THAT RK11 INTERRUPTS AT BRS ONLY SEQ 0091 

3387 ON ERROR (SW 9) 

015012 013700 001332 MOV RKCS,RO 
3989 015016 013777 001350 164314 HOV DRIVAD, ARKOA patognry — 
334) pt EDS ft 55 MOV #340.R2 ‘BR Y GFE PSW 
3992 015034 013703 001400 MOV RKPRI ,R3 : NOTE VEE RK11 INTERRUPT LEVEL IS 
3993 :CHANGED FROM S TO ANY OTHER LEVEL 
3994 ; THEN CHANGE CONTENTS OF ’RKPRI’ 
a33 ? ACCORDINGLY 

piepay 3704 Ges ” cd as, chit T UP ADRES FOR RK11 TO INTERUPT 
334g Bt Bisse pie aa5 MOV 340, ( RY) ea UP PSW ay INT RUPT 
3999 015054 O10e% MOV tS ;SET PROCESSOR PRIORITY LEVEL AS 
‘Ohi bist Bievae O1S0G4 | Mov Ree (SP) 
4003 OIEDEH 12710 001 et MOV 1 0 Oe THe I +4 If 

#100, 

4op8 015070 1777) MOV 408+ Re RET 1 FoR Te 11 INTERRUPT 
4006 BieOve 001376 BNE * i us en ne 
4007 615100 520203 CMP R2,R3 i345 ER CPU U RTORETY LEVEL LESS THAN 
4908 015102 BGT 2s ne RKI1 LEVEL? IF YES, RK 
4009 HAVE INTERRUPTED. ERROR, 
4010 F IT DID NO 
4011 015104 010137 o0116e MOV R1, SREGO ya CPU BR LEVEL 
4012 O15110 011037 001164 MOV JRO, SREG1 ;GET RKCS 
4013 015114 104103 ERROR 103 : THOUGH CPU LEVEL WAS LESS THAN 
4014 ?THE RK11 LEVEL (5), RK11 DID NOT 
4015S ?IN TERRUPT 
4018 15116 005010 2s: CLR aRO :CLEAR RKCS 
4017 15120 062702 177740 ADD #-40, Re secrenre THE PRIORITY LEVEL (FOR 
4019 015124 005301 DEC Rl : CPU WILL B. iy THIS LEVEL 
4020 O15ie6 001344 BNE 15 *LUP BAK & CHK FOR THIS BR LEVEL. 
4021 ; DONE WITH HKING FOR ALL LEVELS. 
10ee 015130 012777 oOO4S26 164244 MOV #BADINT, IRKVEC j RESTORE UNEXPECTED RK11 INTERRUPT 
4024 015136 012746 O00340 MOV #340, -(SP) : 
4025 ot 142 012746 O15is0 MOV #64S; -(SP) 
4026 0151 RTI 
4027 015150 64S: 
40e¢8 O15150 oopo414 BR TST41 : ;EXIT,TO NXT TST 

151 3S: CMP (SP)+, (SP)+ sRESTORE STACK PO 
a0 151 BF5555 OO4S26 164220 MOV #BADINT, ORKVEC Reet TOR UNEXPE ChETED Rk RK11 INTERRUPT 
40 151 CMP R2,R3 F THIS INTERRUPT OCCURED WHEN 

Bie ies iene BLE BE iE, LEVEL WAS LESS THAN THE 
4035 sRK1I PRIORITY LEVEL (5) THEN IT IS 
4036 F NOT SO, ERROR 
4037 O15166 010137 001162 MOV R1, SREGO GET CPU BR LEVEL 
4038 015172 011037 001164 ES MOV and, SREG1 sGET RKCS 
4039 015176 104104 ERROR RK11 INTERRUPTED WHEN THE CPU 
Hoo sLEVEL (AS POINTED BY R1) WAS 

i "HIGHER OR SAME AS THE RK11 
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16:06 PAGE 75 
CHECK THAT RK11 INTERRUPTS AT BRS ONLY 
;G0 BACK & CHK THE NXT LEVEL 
s SRELSSSLSSSLELLESESELSLSELSSSLESLAFSELALELHELESELESESRELLSLSSSS 
Benth eine ccs 
T, THEN IT I CLEARED ter 
ARED CONDITION IS SIMULATED 


STEST 41 2 
:aTHIS 7 

TE cub eKeD 

T CYLINOER(313), 


+N 40 SETAC WORDS FROM 


POETTTVITerierrerterrrtti itt iitiririt i tit ttt titi ttt ttt tity 
T41: 
DO CONTROL RESET 


-~4 
w 
4 
w 
io) 
=z 


ow 
a 
w 


eee ee est eres er erases eres esas ere 


Aaa, S 838 


BES 
8 
oon? 


wr 
38 


23 
S 


FOS FeaK 
“f 


g 
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4141 015370 


4143 015372 
4144 015376 


4146 015404 
4146 015412 


c3 
4154 015414 


a 


104413 


004737 
1041602 
004737 
104152 
904737 
104026 
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104421 
013701 
013777 
012777 
104414 


032711 


021264 
02i3i0 


O2i4le 


001330 
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163734 
163720 


greet “2/8 PAGE 76 
MULAt 8 CHEEK *OVR’ ERROR 


4§: CNT. RESET 


JSR PC, CHKECLR 


;CLEAR OVER 


$04 -P0° IS A Ft he 
og ate cate" 
dere 


BITS 


IF _NOT RETURN HERE 


iat 2 SILA BORE PE EO 


ERROR i062 

SS: JSR PC ,CHKCCLR 
ERROR 102 

&$: JSR PC, ORESET 
ERROR 26 

WIE wena iapeTe Test SIMULATES 


NG ERROR’ % Geas IF IT IS 


CLEARING OF PGE BIT SETS & CLEARS HE 


bid 5 SHEEKED TF POE IN ER, ays) aes aS CHEKED IF 
i aBiTS I 


N RKCS. 


errr ritrririt rer tt itti it itt tt ttitttittiitt itis) 


+éTu2: SCOPE 
RESET 


TST.SIN 


MOV RKER RI 
MOV DRIVAD, aRKDA 


MOV #2011, aRKCS 
CNT. RDY 


BIT #4000, OR) 


A CERTAIN TI 


oe heii et 
Relea Care Lie 
i THIS. I a8 A er Fo tes F IT 
SB take al Bed 
;ADRES THE DRIVE, CYLINDER 0 

GO Pg 3h FMT SE 


a 13 ot ee, Siytatao roy" 


WHICH gt h ‘> 
10 set. Te IF ¢ ra | “DQES 


1-45 ut rat atPOLAR) 


DO CONTROL RESET 
ihe Sn 
; ME 





MAI 
dz 
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16 
SIMULA 


Pll a2- & CHECK PGE ERROR 
BNE 1$ ; 
sie Sie? BOLR08 004000 00116 MOV 84000, SREG2 i TERe IT IN RKER (PGE) DID NOT SET 
He igus ERROR pC, GTeRG Poe Bir Do F Coe TR RcER 
sigs :0N S Aut ON OF CONDITION 
4160 ‘her. CONTAINS THE RKER BIT (PGE) 
sige O15 ge2777 142210 163666 15: SMP 8142210, IRKCS 1D ve Ek pUERR BY is Set? 
ales Bt He 3 020716 mee PC GT2RG tb “oer KG 
4165 fi tba iae ERROR 106 ; HE” OR ER sit ae NOT SET WHEN 
416 :C e ‘ERR ITS 
4168 O1S4S4 104413 2s: CNT. RESET 60, DO RESE 
4169 tts IS A FOR , - 
4179 ;RESET’ I RESET IS 
4171] ; SSUED AND AFTE 1" CERTAIN, TIME 
4172 :1F THE ’ S NOT SET 
4173 AN ERROR 15 REP TED. NOTE THAT 
4174 >THE PC_IN ME IS THE 
4175 :PC "CNT.RESET’ IS LOCATED. 
4176 ‘THIS IS A VERY BASIC IF IT 
4177 :OCCURS GO BACK TO TEST 1 
4178 O1S4S& 004737 O21264 JSR PC, CHKECLR ?CHECK IF 'PGE’ BIT GOT CLEARED BY 
4179 CONTROL RESET IF NOT RETURN HERE 
4180 O1S462 104102 ERROR 102 CNTRL Dtp NOT 
aie OlS464 004737 021210 3$ ISR PC, CHKCCLR ATE IF. ERR ; BITGOT BY 
wigs : ; :CON.RESET, IF NOT RETURN , 
4184 015470 104102 ERROR 102 :RKCS BITS HE OR ERR DID NOT 
4185 - :GET CLEARED BY CNTRL RESET 
4187 ee eee at belte eae ee 
4186 t RTEST 2 SIMULATE 8 CHECK NXM ERROR 
419 ;#THIS TEST TMULATES A NON-EXISTENT EHORY ERROR ( 1 AND 
i130 : #CHECK S IF IT IS DETECTED 8 BY A OR RKER. LOC TON 769000 
4] i ae REO FRENOET IE S BREPENS 10 8 BE Nn HE 1 tore 
4138 HeIE HE 8 BITS piso SET AND ALL 3 BITS Ban” Be CLEARED 
4195 oy sere paggepmaigas re 
4196 O15472 900004 $4743; 
4132 015474 104413 RESET CONTROL RE 
4199 T’ ROUT 
ue ca e's ae ie © 
ite oe ‘ “ig REPORTED. ROE ROE. That 
aes PC MERE "CNTR Reset” 1s fe LOCATED 
4205 tars IS A VERY BASIC ERRS IF 
4206 :0C GO BACK TO Test 10 
4207 O15476 104421 TST.SIN :GO CHECK IF SIN IS SET 
4208 IF SET DO DRIVE RESET TO CLR IT 
4205 015500 oosod2 CLR 22 
4210 015502 013700 001232 MOV RKCS,RO 





E08 
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OZRKKD.P11 22-SEP-76 08:47 T43 SIMULATE & CHECK NXM ERROR SEG 0095 
421) O1SSO6 Ol2e777 177777 163620 MOV 8-1, ARKWC ;WRITE CHECK 1 WORD 


is 
4 


i 


See dk tezet M #160000, sRKBA TTH fare Bree SERES (CYL 0, SEC 0) 
12710 MOV a6 WRT CHK, GO, MEX BITS SET 
b15534 10877 163572 1S: ISTe geKs 5010 CNTRL ROY SET AS A RESULT OF HE? 


BRANCH 
:WAITED LONG ’ 
HEN Qu, gAK 8 HIT 
GET RKWC. 


EREEREEE 


DO VTHN 

See 

até 

: 

Gad 
Downs 

3 


Yeo O1355¢ 017737 163556 OOL166 MOV We, SREG2 : 
1 Ol 104113 ERROR 113 :CNTRL RDY DID NOT SET ON DOT 
tee :Q WRT CHK WITH A NXM gE SCAT ION. 
:TH HAVE SET THE 
4224 : Y BIT IN RKCS 
4225 O1SS62 032777 002000 163540 2s: BIT #2000, JRKER ‘DID NXM BIT IN RKER SET? 
Hee piee70 001006 BNE 3$ ; 
01 737 O20716 ISR PC, GT2RG GO GET RKCS, RKER 
ices 315576 12737 002000 001166 MOV #2000 , SREG2 *THIS BIT (NXM) DID NOT SET IN RKER 
01 104105 ERROR 105 :NXM BIT DID NOT SET IN RKER 
4230 ; SIMULATING NXM CONDITION. 
1 O15606 022710 140266 3S: CMP #140266, RO ‘DID HE & ERR BIT SET? 
aes Bee OS noo716 FER Ope GTaRG re RKCS, RKER 
pees oa 86 ERROR 7 ;HE OR ERR arf pro NOt SET WHEN 
m4 ON Pn Re. ERR BITS 
4237 015622 104412 4§: CNT. RESET G60, DO CONTROL RESET 
42528 sTHts Is A CALL FOR THE ’ - 
isag See AND ASTER A CERTRIN'T 
4541 Sai *CNTRL ROY’ cere ie 
442 AN ERROR IS REPORTED. NOTE THAT 
= SOC WHERE "CNT RESET? 16 LOCATE 
Bee THIS I SA VERY bes ic ERAS : Ft 
a5aS 015624 004737 021264 ISR PC, CHKECLR ‘Ogee 1° *NXM’ Bor eet ;LEARED BY 
4248 :CON.RESET, IF NOT RET 
4 015630 104102 ERROR 102 sCNT Reset aie NOT CLEAR 
4251 015632 004737 021210 S$: JSR PC, CHKCCLR :CHECK IF “He” ERR’ eis GOT CLEARED 
- ?BY CON. RE F NOT RETURN HERE. 
#53 O1S636 104102 ERROR 102 i CNTRL RESE O10, NOT CLE 
1255 015640 004737 021244 6S: ISR PC, TSTRWS G0 CHE I R/W/S ROY IS SET 8 
- *WAIT FOR IT. SKIP ERROR IF IT IS SET 
4257 D1S644 104016 ERROR 16 :R/W/S RDY IS NOT SET 
isz8 8 PESEFERSLEEEELLL SERS SREL HEBEL SHI KSLERESEALESAFEERSRERELRRHTERSBE 
a sFTEST TH See MILATES No ere F DISK ERROR 8 CHECKS IF 
4 :#IT fs berectep BY ab art i? ER. IF ALL EIGHT ARE PRESENT 
42E3 -#THEN THIS TEST IS ABORTED FOR SIMULATION CANNOT BE DONE. 
sad ee SEKLEEEEEEEEREE EEE EEE ERE REEL EE LEEE EE EE EE EEEE EEE ERE ERERELEEREEES 
4265 O1SE4E OO0004 tST44: SCOPE 
4266 O1SESO 104413 RESET ;G0, DO CONTROL RESET 


ge os -0 
DZRKKD .F 


4267 


veinpaedatgieiat 


22-SEP-76 08:4 


015652 


015654 
015660 


015664 
015670 


o1700 
015702 
015706 
015710 


015712 
015716 


01S7ee 
01S72e6 
015730 
015734 
015742 


001332 
160000 


a68081 


163426 
160000 


000015 
000106 


163402 


020716 
000280 


140214 
020716 


001166 


tal oe 27(1006) 04-0CT- 
T44 


1S: 


4§: 


FO8 


76. 16:06 
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SIMULATE & CHECK NXD ERROR 


TST.SIN 
MOV RKCS, RO 
MOV #160000, 
MOV R2, IRKDA 
DELAY 1 
ISTB SRKDS 
ADD $-20000, Re 
BNE 1S 
aR TSTYS 

#15, aRO 
DELAY ,106 
TSTB ORKER 
JSR PC. GTERG 
MOV 8200, 
ERROR 105 


CMP +! Na ta 


g 
JSR PC, GT2RG 
ERROR 106 


CNT. RESET 


;THIS IS A CALL FOR THE *CNTRL 


Tesh Rao PreK *e Baetin te , 


HE *CNTRL RO 


RR serceea te Te" 


NT.RESET’ IS LOCA ATED. 


Tas y,8 A VERY peste. re IF IT 
tell HB ed 

tp nore ORI cee TO FIND 
Spee Pak ne 


ie ai 


LM NXT DRIVE N_ THE 
VERSE DROER. I.E. 
TE Bae 8 TRY TO Fino’ 8’ DRIVE 


mi 
z 


—wnSoe 
m 
nea 
mit 3 

2 


Ww 


coc ies 
2 


- 


5 
g 
. 


8 
a 
B 


“4 
x 
oe 
w 
ot 
w 
D 
2 
" 


ALL FOR THE *CNTRL- 
"Bet Sana © 


Te Tee 


a 
azine 
2.2 
af 
Sa 
a 
‘ 


i 


EN ERROR MESS MESSAGE I 


i 





SES 0096 





r i ee 
; 


4326 015762 
4328 015766 
4 015770 
015774 
4 01 
4336 016002 


a 


MAINDEC-11-DZRKK-D 
DZRKKD.P11 22-SEP-76 


004737 
104102 
004737 
104102 
004737 
104C16 


fect 27( 1006) 
08:4 od 


021264 


021310 


021344 


021344 


000011 


ss: 


04-OCT-76 


ERROR 


GO8 


16 spe PAGE 80 
SIMULATE & CHECK NXD ERROR 


PC, CHKECLR 
102 

PC, CHKCCLR 
102 

PC, TSTRWS 
16 


ae SOT te ta 


CK IF 'NXD’ BIT WAS CLEARED BY 
EON. RESET. IF NOT Re TURN HERE . 
; CTRL RESET DID NOT 


iC CK IF Te 8 "ERR’ BITS WERE CLEARED 
; HERE. 


RESET DI NOT 
s Fe teal) FOR ne Pee" 
aman 


aa = SINAAT LOE REO 


TET SIMULATES The NS NON-EXISTENT CYLINDER ERROR 8 CHECKS 


T OF RKER, HE & ERR BITS 


IT ts CHECKED rt THEY CAN BE CLEARED BY CONTROL 


eriiristrtt i irit ttt it tttitt ti titttt i itiititititiitiii ities, 


t ETEST 
48 TH HIS 
#IF IT IS DETE 
1 40F RKCS. 
+ RE 
tST4s: Sc 
MOV RKCS, RO 
001362 2S: MOV 8-5, COUNT 
MOV DRIVAD. Re 
BIS #14540 
001110 MOV #3$, SLPERR 
3S: CNT. RESET 
JSR PC, TSTRUS 
ERROR 
TST. SIN 
MOV R2, JRKDA 
MOV #11, aR0 
CHK 
ERROR 21 
163236 9S: BIT #100, IRKER 
ISR PC, GT2RG 


; ALLOW "ERROR 133’ ONLY S TIMES 
GET ADRES OF DRIVE 
Set Bt Bit sR oke CYL L i 
‘COPING ON EROR (sua) 
CONTROL 


ry 
lh 


Sa 
ssusaRe 


SES 0097 


HO8 


MAINDEC-11-DZRKK- MACY11 27(1006) 04-OCT-76 16: 81 
DOA Pit Re p-e Bes TYS cPmul BFP° BC CHEEK NXC ERROR _ SEG 009e 

oR GEE Teak SO Bag PM r 

a 1s HTS RE voxcare 

4383 016110 0047327 021344 JSR PC, TSTRWS Coe 8 WAIT aie R/W/S RDY, 

438s 016114 104016 ERR non ms if Furs SHOULD 

4 st4t 73? «021412 ¥en PC, DRESET 

4388 016124 104026 ERROR 26° oe D IVE MA 

- *HAVE TRI - DO A EEK, AFTER 

4399 :WHICH R/W/S RDY DID NOT SET 


Se fib BRE come noe ae 


4393 016134 pes 70s ree ahs 4S: Be ty Re sAoRES TH ee NXT meee NON-EXISTENT ZONE) 


4394 016140 2 817740, 

4335 016144 001334 BNE 3$ IF NOT, att BAK & CHK THE NXT NXC 
4 O16146 032710 140000 S$: BIT 8140000, RO ;DID HE 8 ERR BIT SET WHEN NXC BIT SET? 
4393 OleleN ours? ce07Ie eo OBE tars a "aKcs 

4400 O16160 1041 ERROR 106 Ba Bir DID NOT SET IN RKCS 
4401 ire Wee e EEPOR was TMULA TED 

08 Olbi62 104413 6S: CNT. RESET AE RON TROL RESE 

4404 :THIS IS A CALL FOR , - 
#405 *RESET’ ROUTINE. A CONTROL RESET IS 
oe APU "Sie ov" Gabe ior a 
“a dh gon 1 tert hole 
#03 ; THE PC IN, ERR NESSA Is THE 
44] *THIS IS @ VERY BASIC Bete ai 
44] SOCCURS GO BACK TO TEST 10 

4413 Ol6164 004737 021264 ISR PC, CHKECLR i CHECK IE 'NXC" Bit WAS CLEARED BY 
4415 016170 104102 ERROR 102 - i CNTRL BE ET DID NOT ELEGR i 
4416 *NXC BIT IN RKER. 

4417 016172 032710 140000 7S: IT #140000, aRO :DID HE 8 BITS GET CLEARED? 
44] 16176 0 Q TST4G YES, EXI 

4419 Q1 1 001162 MOV RO, SREGO > GE S OF RKCS 

44 016204 011037 O01164 MOV ard, SREGI :GET RKCS CONTENTS 

4421 016210 104102 ERROR 102 :CNTRL RESET DID NOT CLEAR 

.- ‘HE OR ERR BIT IN RKCS 

sais eae reg ro Tce 
4425 ITEST 6 ERROR 

os iH ey HEP Rect POEL aE 
oes i Bare Palin Unk REPRE 

4425 saa Y CONT 

a} “censuy{tOMN BE, CLEARED BY CONTROL RESET TO 
4431 Ol6212 o00004 +éTug: SCOPE 

Wize 016214 104413 f ‘f 0. CONT RO RESE 

ne feist Biome Fo i aa 





a ce 
rr 





re 11-DZRKK-D 


DZRK 


£Et 
BIRR 


HUGS 


PRRRRes aca sanca atc caine ef oe: 


EEEE 
KAZI 


ASRaRRIRRERSSS 


22-SEP-76 


016260 


bee Be ese 


—b +b oe oe a oe oo ee oe 


MACY11 27( 1006) 
08:47 


021264 


163110 
163064 


001166 


04-OCT-76 
T46 


1$: 


3$: 


108 


PAGE Se 
SIMULATE & CHECK NXS ERROR 


16:06 


V SRO 
. hee 
Vv #-1 rf 
MOV eOUTSUF 
MOV #5, JRO 
CNT. ROY 
ORKER, Re 
IT #40, R2 
ISR Pe CTERG 
MOV AME 
ERROR 
IC 840,R2 
Q 2s 
MOV #40, SREGO 
MOV ORKER, SREG1 
ERROR 107 
CMP #140204, aRO 
BEQ 
ISR PC, GT2RG 
ERROR 106 
CNT. RESET 
ISR PC, CHKECLR 
ERROR 102 


SEG 0099 
SSUED AND AFTER A CERTAIN yi 


ry ra sae 


ioee re Hh 
; THIS ee a VERY 
;OCCURS GO BACK TO p EST 10 


7 ADRES OF DRIVE 
T BITS FOR SECTOR 12 (DECIMAL) 


ene THIS 


MS/ 11-20 
WITH BIPOLAR) 
if ERROR "ByOuLD OCCUR NOW 

Ne BIT SET IN RKER? 


Sa Le SIMULATING. 


ial et 


: CHECK iF ’NXS’ BIT WAS CLEARED BY 
:CON.RESET. IF NOT, RETUEN HERE. 
:CNTRL RESET DID NOT CLEAR 

“NXS BIT IN RKER 


JO8 


MAINDEC= 11 -DZRKK-D MACYL1 27(1006) O4-OCT-76 16:06 PAGE 83 
DZRKKD.P11 22-SEP-76 08:47 THE SIMULATE & CHECK NXS ERROR SEQ 0190 
4491 016356 004737 021310 4§; JSR PC, CHKCCLR H F °HE’ & - ERR” BITS WERE pg LEARED 
ue 016362 104102 ERROR 102 cea Ee a He WERE NO? 
4434 *CLEARED BY CNTRL RESET 
5 ppeeneesnesegnanyaasnnennnannangnnnznnnnnnennencsaseonsse4y 
us IETS BeTECTeD EV WE*etr Gr fuck “Oh ConPunSon TY yes 77 


3 TUENEeP ROPE Siro Pade ER CI ea 


jeupeerhineenneatesnennesnneanesntanranenansaunannaseoesaHeaae® 


6506 
4S46 sWCE CONDITIONS 


016364 o00004 $8Ty7 
016366 013700 001332 au RKCS,RO 
1307 016372 104413 CNT. RESET G0, DO CONTROL RESET 
“THIS IS A CALL FOR THE ’ - 

4509 :RESET’ ROUTINE. A CON TIS 

4510 ? ISSUED AND AFTER A CERTAIN TIME 

4511 *IF THE 'CNTRL ROY’ DOES NOT 

4512 :AN ERROR 15 REPORTED NOTE 

4513 :THE PC IN ME IS T 

4514 *PC WHERE 'CNT.RESET’ IS LOCATED 

4515 :THIS IS A VERY BASIC IF IT 

4516 “OCCURS GO BACK TO TEST 1 

4517 016374 104421 TST.SIN *CHECK IF SIN IS SET, 

WEIS OUE27 1 MOV SOUTBUF RI 5 Oope Sete UP 8 HERORY 

ue38 16402 Bt T3360 MOV HOB RS SBUPPER OF 3Ef WORDS STARTING 

4521 O16406 012703 1 MOV s177797° R3 ‘AT OUTBUF 

Hee “FIRST WORD 177400 

: SECOND 77001 

4524 O16412 062703 177401 1S: ADD #177401,R3 

4525 O16416 010321 MOV R3, (R1)+ LAST WORD 000377 
| 4526 O16420 005202 INC Re’ ‘have GENERATED ALL 256 WORDS? 

tbe? Olg42e 001373 BNE 1§ ?IF NOT, LUP BAK & GENERATE NXT 
| 4529 016424 012737 170007 033256 MOV #170007, OUTBUF+16 ;WCE WILL B SIMULATED BY DROPPING Q 

4530 ;BtT IN THE EIGHTH TH WORD WHICH IS 
| BB owe guerre rum ieee ty rea odd none 

we5 16 1 427308 162670 MOV FOUTBUE SRKBA STARTING AT THIS BUS ADRES 

4534 O16446 013777 001350 162664 MOV DRIVAD, Serpe” WITH THIS DISK ADRES, SEC 0, CYL O 

1536 O164S4 012710 000007 MOV #7, JRO WRT CHK, GO 

4537 016460 104412 CHKCRDY ;GO CHECK IF CONTROL RDY IS SET 

4538 *IF SO, SKIP THE EROR MESSAGE. 

4533 O1le462 104065 ERROR 65 scTR ROY DID NOT SET 

41 OlE464 032777 OO000l 162636 3$:. BIT #1, IRKER *DID WCE BIT SET? 

4542 016472 001006 . . BNE 4§ 

4543 016474 004737 0207 16 JSR PC, GT2RG GET RK 

4544 O16 012737 1 001166 MOV #1’ SREG2 ‘tts IT het) D Oi D NOT SET 

4S45 01 104105 ERROR 105 WCE DID NOT SET ON SIMULATING 
Ss 


KO8 


#407, aR 
CHKCRDY GO CHECK IF CONTROL ROY IS SET 


4594 

45 

We0g ;IF_SO, SKIP THE MESSAGE . 
Wees 016614 104065 ERROR 65 ;CNT "RY DID Rot SET AFTER WRT 
4600 ;CHK. ERROR (WCE) IN 

4601 

4602 


MAINDECE 11 -DZRKK-D macy 11 27( 1006) Q4-OCT-76 16:06 84 

-SEP-76 08:4 T47 SIMULATE 8 CHECK WCE SEQ 0101 

4547 016510 022710 100206 4: CMP #100206 , RO 318 RKCS CORRECT? 

de48 Biel? Be 393 020716 bic Be GT2RG X55. BOARS RKER 

450 016522 104106 ERROR 106 ; HE HE _OR ERR pit ert DID NOT SET WHEN 

ySS2 016524 104413 cs: CNT. RESET CRTR Beets 

4553 016526 004737 021264 ISR PC, CHKECLR WAS ‘WCE’ gry HERE 

Sze tee NOT RE URN 

ioe 016532 104102 ERROR 102 sCNTRL RES RESET eT DID NO 

4387 016534 004737 021310 6S: JSR PC, CHKCCLR Gi CK IF TN ERAS BIT WAS CLEARED. IF 

45 "NOT RETURN HERE. 

4559 016540 104102 ERROR 102 ‘aug RESET DID NOT CLEAR 

e : 

4562 TET eae eGo TELA Me EST Le 

4563 ri S 

4564 s THIS rest ¢ CHECKS THAT 5 Fear en of ON gee PROR Ment Ts. Ser IN 

44 icy “s 2 ae THE SUBNET C OR IF SOE Se BIT Ts TS Vere 

aeee :#50FT ERROR I 720, OF THE CUR BNICE AS VIOUS 

4568 ;#TEST. THE PREVIOUS TEST % 1" ST wince WRITES DATA 

4565 Fe ON CYLINDER 0, SECTOR 

1 NORD’ GET Ton" tung STOP aeTpn the FIRST SOTO’ curr 

3258 Sich ek Sort ERROR TS 

4573 PE ae BR A ee DB TR 

4574 O16542 o00004 +150: SCOPE 

4575 O16544 104413 SET :60 DO CONTROL RESET 

4576 Hts IS A CALL FOR TH THE *c 

Wey sRESeT ROY Hea A "RERTATN hii; 

4e79 He the Son are a ok ig 

4580 AN ERROR OT REPOR REPORTED «| Rote TRaT 

4561 :THE PC_IN ERROR MES IS THE 

4582 PC *CNT.RESET’ IS LOCATED. 

4593 *THIS IS A VERY BASIC ERR& IF IT 

45284 OCCURS go BACK TO TEST 10 

4585 O16546 104421 TST.SIN :CHECK IF SIN IS SET, IF 

486 *SET DO DRIVE RESET fo CLR IT 

4587 016550 013700 001332 MOV RKCS, RO 

4588 016554 012737 1 033256 MOV #170007, OUTBUF+16 ;WCE IS SIMULATED BY DROPPING A BIT 

4563 ;IN THE EIGTH WORD - (WHICH IS ACTUALLY 

490 :174007). NOTE T WORD MEMORY 

4591 ‘BUFFER IS RE ATeD IN THE PREVIOUS TEST. 

Wea3 eee Biaay sean 162540 NOV at BRKUC ;WRT CHK 1 (OCTAL) WORDS, 2 SECTORS 
Bigess piss? pasenn = teSe39 MOY ROUPBUFCORKGa © TFROM THTS-BUIS RORES 

95 16602 01 \bes3e MOV Ri BRKDA sITH rie ISK ADRES, SEC 0, CYL O 

beets ih om zi 


A SOFT 
;SECTOR O SHOULD HAVE STOPPED 
ALL CONTROL ACTION. 


MAINDEC-11-DZRKK-D 

DZRKKD.P11 22-SEP-76 

Rs 016616 022777 

4605 pibbst BO? 

ae? 16634 81553 
Ois642 104107 

4609 

wit 

ll 

“le O16644 

4613 O16646 020177 

4614 

Si 

5 HH AA 

4618 O16660 017737 

M2 016666 104070 

4621 

4e53 

4624 

4625 

4626 

4627 

4628 

4631 

4632 

4632 

4634 

4635 

4636 

4637 

4638 

4639 016670 O00004 

464C 016672 104413 

4641 

4642 

4643 

4O44 

4645 

4646 

4647 

4648 

4E49 

2 31 016674 104421 

46 O1667&6 012737 

4653 

4ES4 

4655 

4656 

4657 016704 013701 
016710 012777 


MACY11 27(1006) 
08:47 


000001 


1ee470 


162504 


001162 
001164 


170007 033256 


LOS 


O4-OCT-76 16:06 
TSO 


PAGE 8S 
CHECK THAT SSE STOPS ALL CONTROL ACTION ON SOFT ERROR 


- SES 0102 


2s: CMP #1, IRKER CHECK ONLY "WCE’ BIT SHOULD 
a i $RE scEP eect : 
MOV SAYER  SREGI ta ER BeRVBY 
ERROR 107 ‘ONLY BIT 'WCE’ OF RKER 
; SET (WCE WAS 
IMULATED | RBOVE) . ERROR 
3S: INC Rl ‘CHECK THAT RKDA INCREMENTED BY 
CMP R1, IRKDA ?1 SECTOR ONLY IMPLYING THA 
:CNTRL ACTION DID STOP AFTER 
. os jSOFT mi IN SECTOR 0 
V AY SRECO tage EXPCTD RKDA 
Eekor Sg One SREG] EDA SHOULD HAVE INCRMNTD 
*BY 1 SEOUGR ONLY, IT DIDN’T 
: WAS SIMULATED is THE 
iF T SECTOR & A WRT CHK 
; SECTORS IS 
“CONTROLLER SHOULD STOP AFTER 
:DETECTING WCE IN THE FIRST 
: SECTOR. DA SHOULD 
* INCREMENT BY 1 SECTOR ONLY 
; fe EE AER THAT RKLL INTERRUPTS ON SOFT ERROR WHEN SSE 
‘TES CHECK THA NTERRUPTS ON rae 8S 3 ob PE ARE SET 
St THIS TEST CHECKS Ken SE BI SET sOtTHE ibe § SET A 
*#ERROR OCCURS, THEN ALL CONTROL ACTION WILL S 
; #REQUEST CINTERRUPT ) WI OCCUR A aT THE END oF ore AO RRENT 
: xSECTOR. RROR IS SIMULATED BY ic £ AS IN PREVIOUS 
#TEST. PREREQUISITES FOR THIS TES THE SAME AS THOSE 
*#FOR THE PREVIOUS TEST. 
TTT T TI STTETTTTTSETETESTSTTOS OTT TT TTT TTT TTT TTT TTT TT ttt tT ttt 
+éT51: SCOPE 
CNT. RESET DO CONTROL RESET 
its IS A C FOR THE ’CNTRL- 
*RESET’ ROUTI CONTROL RESET IS 
ISSUED AND AF TE "a CERTAIN TIME 
:IF THE 'CNTRL RDY’ DOES NOT SET 
: AN REPORTED. NOTE THAT 
‘THE PC IN ERROR MESSAGE IS THE 
"PC WHERE 'CNT.RESET’ IS LOCATED. 
*THIS IS A VERY BASIC ERR& IF IT 
OCCURS GO BACK TO TEST 10 
TST.SIN ;CHECK IF SIN IS 
“SET DO DRIVE RESET TO CLR IT 
MOV #170007, OUTBUF+16 ;WCE IS SIMULATED BY DROPPING A BIT 
; N He E GHTH WORD (WHICH IS 174007) 
:NOTE THE 256 WORD MEMORY 
:BUFFER (STARTING AT OUTBUF) IS 
:CREATED IN A PREVIOUS TEST. 
MOV DRIVAD,R1 
MOV #-1000;3RKWC ;WRT CHK 1000 (OCTAL) WORDS, 2 SECTORS 





aN 


017000 


oOo0o00 200000 
oe oe 
Re £4 


S98¢ 


C=11-DZRKK~ 
Pll ee 


033240 
14 


001332 
177774 
017064 


000142 
021344 


—_—— —— -— 


162412 


162360 


162402 


001164 


001110 





MOS 


Sepang Berydt O7'1006) P-OCT-PSECK TART RIT ENTERRUPTS ON SOFT ERROR WHEN SSE & IDE ARE SET 


MOV SOUTBUF,JRKBA ;FROM THIS BUS ADRES 
MOV R1 SRKDA WITH THIS DISK ADRES, SEC 0, CYL O 
+d myer )+ T UP INTERRUPT VECTOR FOR RK11 
my ita, FSET Per intemmay 
WAT. INT, 177777 Wand cot TntERRUT 8 ROH RK11 
:97 MS FOR ais 
JSR PC. GT2RG 1/05 
ERROR 111 ;RK11 oré" NOT INTERRUPT AFTER A SOFT 
‘ERROR (SIMULATED) IN SECTOR 0 
BR 2s 
1S: CMP (SP)+, (SP)+ RESTORES STACK POINTER (FROM RK11 INTRUPT) 
CMP (SP)+; (SP)+ : POP STACK (FROM WAT. INT) 
MOV #BADIAT, IRKVEC RESTORE RK11 INTERRUPT VECTOR 
ae as ‘ADRES FOR UNEXPECTED INTERRUPTS 
emp 1, 3RKDA ;CHECK THAT RKDA INCREMENTED 
*BY ONLY 1 SECTOR BEFORE INTERRUPT 
: OCCURRED 
BEQ es 
MOV SREGO ;GET EXPCTD RKDA 
MOV arin, SREG1 ; GET RKDA RECVD 
ERROR SHOULD HAVE INCREMENTED BY 
fT SECTOR ONLY, IF BLL CNTRL ACTION 
“HAD STOPPED ER SOF ERROR 
- >(SIMULATED) IN SECTOR ‘- “IT DID NOT. 
MOV #340, ~ (SP) 
MOV #64; -(SP) 
RTI 
64S: 


CLR aRKCS ;CLEAR THE IDE BIT 


o LEAAREA ELLA ER RA ALAA LEA AA ARAL A RARL ARAL LEAL LER E LLRLLEELEL ARES 


{TEST S2 CHECK THE MEX BITS IN RKCS 
;*THIS TEST CHECKS OUT THE EXTENDED MEMORY BITS OF THE RKCS. 
:#THE RKBA IS SET TO 177776 A ONE WORD WRITE CHECK IS TRIED. 
TO VEN THEN THE RKBA 


;#THIS BULB Give R NXM BUT E 
;#SHOULD OVERFLOW OH INTO THE MEX BITS. SIMILIARLY IT IS CHECKED 
jxTHAT THE OVERFLOWING BIT CAN MAKE THE MEX BITS COUNT 


jeevenedinabeahisbeabeaeansseeeneeeeenennnncencennnnnanaceae 


+é752 
MOV RKCS, RO 
MOV #-4,R1 ;SET UP THE COUNT 
CLR R2 s INITIALIZE MEX BITS TO B SET IN RKCS 
MOV #1$, SLPERR ‘SET RETURN ADRES FOR 
;LUPING ON EROR (SW) 
1S: DELAY ,142 : TIME DELAY 
ISR PC, TSTRWS sWALT FOR RWS ROY 
ERROR 1 W/S RDY IS NOT SET 
CNT. RESET 60" DO CONTROL RESET 


SES 0103 


NO8 


MAINDEC-11-DZRKK-D MACYL1 27(1006) O4-OCT-76 16:06 PAGE 8 
DZRKKD.P11 22-SEP-76 08:47 TS2 CHECK THE MEX ae IN RKCS 

4715 :THIS IS A CALL FOR THE "CNTRL- 

471 ?RESET’ ROUTINE. A CONTROL RESET IS 

47] :1S AND AFTER A CERTAIN TIME 

47] [IF THE 'CNTRL RDY’ 

47] : IS REPORTED. NOTE THAT 
*THE PC IN ERROR MES T 

4721 :PC WHERE ’CNT.RESET’ Grek iF 

47 THIS IS A VERY BASIC IF I 

47 CURS GO BACK TO TEST 10 

4724 017100 010210 MOV R2, RO sSET HEX BITS (AS IN R2) IN RKCS 

4o5E B15 108 ea boi 360 P5553 NOV St aN BIsk AORES, SEC 0, crt 0 

4727 017116 612777 177776 lbeele MOV $177776, JRKBA pie ADRES.” NOTE THIS 

4956 sIN CONJUCTION WITH MEX BITS OF RKCS 

4729 017124 052710 900007 BIS #7, JRO CHK 

4730 Mi Be @ too om ue. 

4731 “WHATEVER THE CASE RKBA SHOULD 
‘OVERFLOW MAKING THE MEX BITS COUNT 

4733 017130 104412 CHKCRDY 360 CHECK IF CONTROL RDY IS SET 

4734 IF SO, SKIP THE ME 

4735 017132 10406 ERROR 65 :CNTRL’RDY DID NOT SET AFTER WRT CHK 

4736 0171 Teepe 3S: MOV R2, RS 

4737 O17 062705 000020 ADD #20, RS ;MEX BITS SHOULD INCREMENT BY 1 TO THIS 

4738 017142 042705 O00100 BIC #100, RS :MASK OUT IDE BIT POSITION, IF SET 

4 0171 011904 MOV aRO, RY GET RKCS 

4 0171 04 177717 BIC #177717, R4 "MASK OUT ALL BITS EXCEPT MEX 

4741 017154 CMP RS, RY ?DID MEX BITS INCREMENT CORRECTLY? 

4742 017156 001405 BEQ 4§ YES, BRANCH 

4743 017160 010537 MOV RS, SREGO GET EXPCTD MEX BITS 

4744 017164 010437 001164 MOV RY’ SREG1 :GET MEX BITS 

4745 017170 104112 ERROR 112 *MEX BITS DID NOT INCREMENT AS 

4746 j SEXPCTD® N RKBA OVERFLOWED. 

4747 ;NOTE THAT BIT POSITION 4 8 5 

4748 *REFLECT MEX BITS O 8 1 IN THE 

474g ‘ERROR MESSAGE. 

4750 017172 017703 162132 4g: MOV JRKER, R3 :GET 

4751 017176 010305 MOV R3, RS 

4752 017200 042703 003001 BIC #3001,R3 ;MASK WCE,DLT,NXM BIT, IF SET 

4753 017204 O01410 BEQ 58 ; BRANCH H IF REST OF RK RKER CLR 

4754 017206 042705 177776 BIC #177776,RS NON- 

4755 017212 O1 001162 MOV RS, SREGO :THIS IS THE eeectD RKER 

4758 17216 017737 J62106 001164 MOV JRKER, SREG1 :GET RKER RECVD 

4757 QO] 104107 ERROR 107 ‘ERROR IN RKER. IT SHOULD 

4758 iB RS EXPECTED IN 

4759 RROR ME 

4760 017226 O62702 00020 SS: ADD #20,Re2 : INCREMENT TO NXT MEX BIT 

4761 017232 O0S201 INC Ri HAVE y CHKD THE MEX BITS 4 TIMES? 

Wee 017234 001313 BNE 1 IF NO BACK 

4764 lant eee 

4765 ‘ LTEST 53 TRANSFER FROM DISK T 

4766 :# THIS TEST CHECKS THE HIGH OORDER BITS OF THE ADDRESS 

4767 :# LINES. FIRST A ONE WORD (100) IS WRITTEN ON SECTOR 

4768 7# 2, C PTRSHEN TT 1S READ BACK T THE NPR IS DONE 

4769 :*# NOT 19 THE MEMORY, BUT THE TELETYPE BUFFER (TKS 177560) 

4770 :%# AND IT CHECKED THAT THE WORD WAS RECIEVED CORRECTLY. 


- SEG 0104 
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DZRKKO.P11 | 22-SEP-76 08:4 TRANSFER FROM DISK TO TTY  +$€6 O10 
4723 i#1F IT IS NOT, AN ERROR IS REPORTED. THIS TEST IS 
4773  BERERGbERSSSRODERSSORESSDORSSESCSOSORORGEOOESEGEG: cEGeEREEORESS 
dooe pire3e pooes; 00000: 001206 tETE3: aye #1,STIMES . 
aoe “ t+hPs! chore Fitoe OUT IF THE CPU 
S777 :IS AN 1 we 
oo ON ORESSED B "to 177700) can at 
a Sie St oo Gina 760 fs PPT cn 
4786 172M 912737 017270 000004 Nov ss$ as4 :SE SB ne ate SEE VECTOR 
4 51 35e0 S539 Aeaaee 00004 nov sBADTMO, a84 ; if W/O TIMEOUT 
4786 017266 pees _ BR TSTS¥ apis SKIP THIS TEST 
Sees Bigsee Bs oo4462 000004 MOV THO, a84 3 RESTORE stack Por VECTOR 
4789 01 r 900346 MOV -( SP) 
4790 Ol 017312 Hoy seus! (SP) 
479] 61 19 RTI 
= 1731 64S: 
Me gt eate techie _— ONT. RESET Be DO CONTROL 
med its Is QUTINE, A CONTROL RESET IS 
4797 i TSSUED BAD APTER A CORTA Nite 
4798 : *CNTRL YT DOES NOT 
4795 AN ERROR TS REPORT NOTE THA THAT 
4890 3; THE PC IN I 
4601 :PC *CNT. ee fe [8c Loc BED. 
*THIS IS A VERY BS{C_ERRE ei 

Mes 017320 12701 o33eM0 SOUTBUF, RI 12GCURS GO BACK 

a a cats ROY ea SF WRITE THIS WORD 
weoe oi 7a 12077 agee 161772 Nov 1 SRKiC {WRITE 1 WORD 
4e0e 0] j 1350 V DRIVAD, 
4609 017346 000002 BIS 2 Re ;0N CYL 0, SEC 2 
4810 017352 O1 161762 MOV , IRKDA 
4Ei 17356 10114 MOV RI. aR ;FROM THIS MEMORY LOC 
WB12 O1 12710 000003 MOV 83, ORO : WRITE, 
4813 017364 CLR R3 
414 17366 105719 1S STB RO 
35 ties ee & & 
4818 017376 Sora? ISR PC, GTYRG 
4g18 1740e 0102 ated MOV R2, $REGIO ah Sa ERt ING ARE ; 

17406 104416 T INTO YL, SUR, SEC 8 
4821 O17410 104031 ERROR 31 ee DID NOT 1 str an , 
Sees 017412 012777 177777 161714 2S: MOV 8-1, IRKWC 
4804 017420 O1 161714 MOV R2, aRKDA ;FROM SEs 2, CYL O 
1ee a “ 001144 MOV TKS, ORY ‘INTO TTY STAUS REGISTER 
174 161510 TKS :CLEAR TTY KEY BRD STATUS REG 
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o-p-- 
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OQOOOINOV000000 


MAINOE 
DZRKKD. 
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4831 
4839S 
“es? 
we35 
ssi 
wes 
4844 
Wee 
4eNe 
4849 
48S0 
48S 1 
48Se 
4853 
4254 
4855 
4627 
dees 
4860 
4861 
weed 
4864 
48ES 
4665 
4867 
4868 
4869 
4870 
4871 
487e 
4873 
4874 
4875 
4677 
4879 
4880 
4861 
4682 





=28 
Bae 
wn 


i 


o- L=$—4 
Pista 
-Or 
etre 


cocoss 
3s: 
020702 
001202 
060100 OO1144 4§: 
ates 
1164 
B00109 
1162 
001166 
001170 
TEST 
tetsu: 
oo000S 001206 
ocoode 
017562 001110 
1 
Bet aae 1S: 
177777 161534 


;READ, MEX BITS SET 


& HE MRR, sun, sec 
oft DIDN'T o¥aef bereR’ 
c SEC 2. 
BSA) neon 


Due Lah oe PEON AT t “He OF EROR 
a Te COG ASE 


3;YES, EXI 
;GET THE WORD RECVD FROM DISK 


T 
T RKC 

DATA WORD (100) 

{APR WAG TRIED PROM DISK. 10 

‘TTY STA GISTER 

:(17756) . BIT 6 HAVE BEEN 

: SET AS RESULT OF THIS 

:BUT IT WAS NOT 


z 


pee eT ECK THAT PXBA CAN COUNT CORRECTLY 


s4 


satus 


ie18 Tr igen 


HEIL Be aN ROR ERROR 


WOT A Seta tan Cont Eo 


CAN COUNT CORRECTLY. IT_IS SET 


LS eine Big se). df, THERE 1s 


STOPPING CONTROLLER 


ai TION. nere RKBA 
ENTED 8 BY ph ITS INITIAL VALUE. IF IT 


NOT, AN 
-guasnuberesuceubeonesennceanectonsstesopsoosscensaunensensness 


SCOPE 
MOV 8S, STIMES 
TST. SIN 

CLR 

MOV #2,R2 

MOV #1$, SLPERR 
MOV RKBA, RS 
ISR PC, TSTRWS 
ERROR 16 

CNT. RESET 

MOV 8-1, IRKWC 


ipece TE CIN Get. IF SET ORV RESET 
INITIALIZE ( vacut 
‘INITIALIZE (INCMNTD VALUE OF RKBA) 


;SET_RETURN ADRES FOR LUPING 
;0N EROR 


¥¥ FOR R/W/S_RDY 

/W/S Tee IS NOT SET 
1% 7a RESET 
;WRITE CHK 1 WORD 





Ee me 


DOS 
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o2 Pll 22-SEP-76 O8 CHECK THAT RKBA CAN COUNT CORRECTLY $86 0197 
4883 01 1 MOV -THIS BUS 
3EEs eed Mee 001350 161530 MOV Bats, ark Sef isk RORES 
4688S 017610 Ol 000067 161514 MOV aRKCS WRITE CHECK, eX BITS ES 
4888 O17616 104412 caxcroy °° GO CHECK IF’C CONTROL Y IS Se 
;IF SO, SKIP THE E MES 
Rea 017620 104065 ERROR 65 ; CNT’ ry NOT SET AFTER 
HRT RIED TO_NXM LOC 
4890 ;U MIGHT STs 
48931 ; CHECKING IT 
48S2 017622 O0S237 001356 INC INDX1 sALLOW ONLY OF ABOVE KIND 
Be 2 Ol76e6 001417 BEG 3 
dee 017630 Gedeis 3s: CMP R2, ars s030 RKBA INCREMENT BY 1 FROM 
sITS INITIAL VALUE? 
4897 017632 OO0141 BEO 4§ i NES BRANCH 
4898 O17634 0101 001162 MOV R1,S$REGO ; EXPCTD RKBA 
4899 017640 011537 OO11E4 MOV ars, SREG ;GET RKBA REC 
an 017644 104017 ERROR 17 ;RKBA DID NOT INCREMENT BY 
1 31 FROM ITS iN TIAL VALUE. 
4902 ;ONE WORD WRT CHK ws TRIED 
4903 3TO A NXM LOCATION. THERE 
4904 s;WILL BE AN NXM ERROR 
sane PNCREMENT BY 
4907 tNTTTAL VALUE _ 
4908 017646 001360 INC INDX2 "ALLOW ONLY S ERRORS OF 
49039 017652 001405 BEQ c$ ; THE ABOVE KINO 
4910 017654 060201 4$: AOD Re, R1 ;SET NXT VALUE OF RKBA 
4911 017656 01010e MOV R1,Re 
agis 017660 O6e702e 000002 ADD #2, Re ;SET EXPCTD VALUE OF RKBA 
wate O17664 O01336 BNE 1$ sALL DONE? 
wait - 017666 Ss: sDUMMY EXIT POINT 
4917 
wait s SEESSRESSSESSE EEE EER ERE RR EERE EERE SERRE SERA ERLE EE REE REE ERERE EEE 
491  ETEST CHECK FOR RK-OSF 
4920 G#THIS TEST oer RK-OSF TYPE DRIVES 
4921 sary ee T IF SEEKS ARE ISSUED ON ONE 
4922 HrMeR DRIVE BECOMES BUSY 
4923 smeeens ORE, THE OTHER DRIVE BECOMES BUSY sannnnnnnene 
Se ines peo i 
176 1 000001 Oo01206 MOV 81,STIMES ;;D0 i. galt 
4926 tet 05737 001404 TST FELAG sSEE IF 
4928 017704 0eSosé eee RS, FCHECK : SEE IF OTHER GOES BUSY 
4929 017710 104120 ERROR 120 
meet} 017712 1S: 
4933 1p gemma -- 3-777 oe eertenaiencemmam ae 
“Sie t ETEST ce OF PRO 
4935 ;*®THIS IS NOT A Test, WT A LINKAGE PROVIDED TO PERFORM 
4936 °#T 2 lar tt ae THAT ARE PRESENT. 
4937 eNO E THA POLLING LOGIC- 
4938 :#15 DONE USING ai THE sORIVES THAT ARE INDICATED PRESENT. 
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000001 
001352 


021412 
001412 


BoY7be 


001i12 


Bors 


O2S20e 
1436 
1414 


001436 


001206 


001382 


001380 


001206 
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TS6 END OF PROGRAM SEG 0108 


#00 NOT LOOP ON THIS ’TEST’. 


POR SEESRSERGRESEODSCGDODODRSREGSERDORERREGUSESCREROOREEESEES 
tétcg: SCOPE 
INC bate on NCREMENT COUNT F R Ite NUMBEP 
‘ ae Te, BRE c 
PC, DRESET aT 
eb aang Of DRIVE RESET 
BTEOP: CMP IVS, DRVDON itave U SED ALL F DRIVE 
“THAT ARE PRESENT? 
a is DRIVAD ii oes BT Pp DRIVE 
ee sORES TH, ae 
{DRIVE PRESENT 
1S: CLR SERTTL 


= Se a ge gE ga EE ES ER EEE SE EE ER EE RE EEE EERE EEE EE 
SATEST $7 Ras HARDWARE POLLING LOGIC 
;*#THIS TEST CHECKS THE HARDWARE POLL LOGIC, USING ALL THE DRIVES 
; #PRE ON THE RK11. ATLEAST TWO DRIVES SHOULD BE PRESENT 

;#T0 DO A MEANINGFUL HARDWARE POLL. SEQUENCE OF OPERATIONS IS 


;#AS FOLLOWING: 

:#1) OF DRIVES ON THE RK11 IS_ASCERTAINED. 

:#2) HAVING L OUT ALL INT RUPTS, cc PR 7), SEEK IS INITIATED 

:#FOR ONE DRIVE AT A TIME, ONLY RL RDY’ IS SET. 

:#3) PRIORITY Is TO 460 THAT RK11 CAN INTERRUPT THE INCOMING 
# T TO CHECK IF IT WAS TO *SEEK DONE’ 


rot oF ee ‘ 
29 fe TED cH ict EaNe BSR. 
tt ERaOe SEEK 


reeseesbenneennesnesutenucosnensnenteniassnessasuasanssaansatay 


+4757 

MOV #5, STIMES ::D0 5 ITERATIONS 

INC SIZYET ; FOUNR RKOSF YET? 

BNE 2ss S 

JSR PC, SIZEF FIND WHICH ARE RK-OSF 
ess: CLR PH ‘NUMBER OF ACTUAL DRIVES 

MOV #ORTVO, RO :T 
238: TST (RO) :DRIVE HERE+? 

BEQ 228 ; 

INC PHYDRV :COUNT DRIVE 

TST (RO) ; RKOSF? 

Ai (RO)+ ‘DONT COUNT F TWICE 
228 TST (RO)+  <NEXT ORE 

CHP RO, #ORIV?+1 sALL YET 

CLR ODDEVN ‘EVEN DRIVES FIRST IF F 
TS: TST DRIVS *ANY DRIVES PRESENT? 

BNE 208 YES 

JMP SEOP : 
20S INC TSEFLG 

MOV RKCS_ RO 

CLR INDX! ;FLAG TO INDICATE: 


a 2 


eek pt 1-DZRKK-0 
OZRKKD.P11 


SauMOTERERSEaN 6 


BEBnEnENE 
00 NOU £ LUT 


ig 


Reeds Pad aa aue iaiSsisiisyin shy 
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BENNO RSS SSRESNSSRSSNSNS 
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tos 
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FINSTERRHHFHSRESPSEHSRA 
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Hs 
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=8 
Ro 
b- b= 
uN 
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t= =F 4 
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pong 27( 1006) 


903360 


04-OCT-76 
Ts? CHEC 


1S$: 


1$: 


64S: 


168: 


CLR 


CNT. 


= 


FOS 


16:06 PAGE 92 
K HARDWARE POLLING LOGIC 


INDX2 


RESET 


#340, -(SP) 
#64S,-(SP) 
#BITO, (R1) 
4§ 

(R1) 

17$ 
#81T13,Re 


VN 
4§ 


VN 
4§ 
Re, (RS) 


817777, (RS)+ 
RY 


dRO 
3$ 
RY 


104 
males) 
4 
x 


; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
i 
; 
; 
; 
; 
] 


; CINOX1)=0 POLLING DONE eT 4 
s CINDX1)=1 POLLING ae TER 
*DRIVES SEEK TO CYL 
sFLAG INDICATING TYPE OF INTE 
:SET TO NON-ZERO T 

Tet THE INTERRUP 


ile 1S nen FOR THE CNTR 
Pie ae CERTAIN Brey 


“+o 


Re ea Cag Bali 


Has IS A y baste 
S TO a's 


;SET_ ADRES FOR FOURTH CYLINDER 
INITIALIZE POINT 


iSrrniaze™ POINTER YO T 
CLEAR OUT 


ease 
mo 


siseEs 


bot 
oO 
»D 


TOR 
He BITS 13-15 OF Re) 


Bas 
‘ 


;MASK OUT UNWANTED BITS (CYL,SUR,SEC BITS) 


ite. CNTRL 4M SET? 
;NO, WAIT FOR IT 


Pp 
S WORD IN THE 
AREA ING THAT THIS 


SEG 0109 
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MAINDEC-11-DZRKK-D macy 11 27( 1006) Fores 16: 
DZRKKD.P11 | 22-SEP-76 08:4 CHECK 
5051 020240 001 

104021 

Bhes SSasue ssaer OR 
Bee 020250 010277 161064 3S: MOV 
Renee OB 
5059 O20262 O62702 020000 ADD 
S060 020266 aad INC 
sree 020270 001330 BNE 
5064 
SOEs 
5066 
ope 020272 05004 CLR 
5063 1 001402 S$: MOV 
5070 BSpSo0 012722 020332 MOV 
5071 D20304 Olerié 000249 HOV 
2675 BSosts Biseup poraee HOV 
5074 020320 00002 a RTI 
EOoE Oo BS p54 oh354 Bases ‘ INC 
— ™ 
5080 020332 o22626 bS: CMP 
5981 O20334 005737 001360 TST 
snes 020340 001021 
E095 ” 
ep? pensne perdpy eCCee Brg 

020350 611037 001162 ay 
2058 020354 104076 ERROR 
5090 
epee 020356 017701 160744 75 MOV 
50983 020262 032701 160000 ; BIT 
5094 020366 001403 BEQ 
2036 020370 010137 001162 MOV 
2h¢g 
5100 
5101 
210e 020376 005237 001360 gS: INC 
5104 
E105 
S106 o20402 000734 BR 


PAGE 92 
pe une’ POLLING LOGIC 
és Toa OMe eKce ER DS 
C, GTYRG DA 
1  CNTRL ROY 1D. Nor eet s BP TER ACCEPTING 
R2, IRKDA ADRES Ags BRT ca co OR CYL 4 
saa sal eee eo ip beaks Y BE) 
ta R2 y7oe NE IVE ADRES (BITS 15,14,13) 
ee oe 
T ely 
hee Chelate ie nex, 
BY NOW ShEKs HAVE BEEN ISSUED 
:TO ALL DRIVES PRESENT 8 POLLING 
a HAS BEGUN 
RKVEC, Re 
86S, (Re)+ ;SET ADRES FOR RK11 TO INTERUPT 
#340, (Re) :SET PSW ON INTERUPT 
“43h :DROP CPU PRIORITY TO 4 SO THAT 
a + ;RK11 CAN INTERUPT 
sTHIS IS A TIME LOOP DURI 
RH s WHICH ALL DRIVES PRESENT SHOULD 
118 : CK IF LABLE 
i Brive AN PERRPTED CORRECTLY 
(SP4, (SP)+ ane STORE STACK POINTER 
Due 0 *abhes abe BE TE AFTER INITIATION 
3$ IF YES, CHECK THE FOLLOWING 
#20000, aRO ;CHECK THAT SCP IS NOT SET 
7§ ;BRANCH IF SCP CLEAR 
JRO, SREGO ;GET_RK 
76 TER THE FIRST INTERRUPT WHICH 
*1S DUE TO INITIATION OF SEEK, SCP 
:SHOULD NOT HAVE SET. IT DID 
JRKDS, RI 
#160000, Ri ;RKDS BITS 15-13 SHLOULD BE CLR 
R1, SREGO 
SO ‘oer K ORTH IDE SET WAS ISSUED TO 
?ALL ALE aval ILABLE DRIVES. THE FIRST 
: NTERUPT S DUE TO SEEK INITIATED 
By FR T BITS 13-15 
: D BE CLR AFTR THIS FRST 
: THEY NOT IF THIS ERROR 
INDX2 :SET UP FLAG INDICATING 
: THAT 1g FIRST IN RRUPT DUE 
:TO INITIATION EK WAS 
: PROCESSED 
S$ :GO BACK TO THE WAIT LOOP & WAIT 


HOY 


' SEQ O1il 


D 
N 
I 


IVE 


a ea 
-S- > & a:.™ Sok nr 
a _ Bd gee 288) 8 
wseee SE ay ZBESES -S- ; Esty 2 
wonaee Beet SSarys ee ge = . 9% 
= rata ~ So See iz 
Be tatwete Heros See E Sagi c 


ee 
FLAG 
; NT 
BRANCH IF INTERRUPTING DRIVE WAS FOUND 
;GO_ BAK & WAIT FOR FURTHER INTRUPTS 
;1S LOCATED STARTING AT *OUTBUF’. 


BACK 

NG 

t 

RE 
TTA ORD INDICATOR TABLE USED IN 


;FOR NEXT INTERRUPT FROM RK11 
get pout OF # oF DRIVES PRESENT 
; INITIALIZE POINTER 


tT z 
nS¥ ut uFaela wessew § Hie, Bake Geeta, See 
r—- N> ee ee bt 4 ~~ mduirr aul -— 
Casa ota =e oe Care ae az 33 z a ee ou 
@ gor 38 2 Eee Ot ee es om SOS wHee 
3 ShEREMSSOYE Geubethgreva? WYSEsh= Sty seSeRee. 2... 
3 rot Maite 
9 
a3 ot | 2 <3 
But: Tas ve E- -c: 8 go 
35 Mot sf 3 BF yee ORB Se y dot Shee 


-OCT-76 16:06 
CHECK 
V 
V 
Vv 
ate 
Bro 
DEC 
BNE 
MOV 
JSR 
MOV 

ERROR 
BR 
INC 
BR 
MOV 
MOV 
TSTB 
BNE 
MOV 
JSR 
MOV 


133 
3$ 
10S: 
11S 
14S 
13$ 
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258 
presse 
021106 
001162 
Basc40 
021106 
001162 


22-SEP- 
R 
es 
1 
411 
1374 
10146 
737 
1 
000401 
o0Se45 


O54 
Oe 
060 


C=11-DZRKK-D 
re 
4 
30 
x4 


MAMABRGRHS Ss SSF FPS STRAND os 


® 
RAIA RRG ROS NS PPS PT RAO RB oo 
CSVUDVEDULSDASVUSDASDASDASDASDASDASD ASD LSDASDLSDALSDASDASDASDASDASDASDASDASDASD ASD ASDA sDasDasD Os ts? 


a ledentastentenlentontantantestanten tastes tantenten 
USSD ASVASDASDASDASDASDASDASDASDASDASDASDAsDESDEsD ESD 


4 


i=) 

: 
SRS IVI OO ITTY, 
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MAT 
DZRK 


Oe ne ee 


em eee + ee ee eae ie 


i ee + 
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DORKK. Pli 22-SEP-76 08 Ne: 4? er CHECK RROWARE P LLING LOGIC 


$1 


e- 


a ae 


wun 
[ek oe 
o 

won 


pea a ht ht abt bth A ht htt hh ht 
BBIRR LOO SBBIRR PSK SIs aa ZINAS 
ee 


on 


020576 


Sesnneunes 


Seer 


a a 


005237 001406 TSTEND: INC 
Oee737 CO00002 001406 CMP 
001402 BEQ 
peas JMP 

1434 21s: CLR 


ODDEVN 
#2, ODDEVN 
2i$ 


TS6 
TSEFLG 


-SBTTL END OF PASS ROUTINE 
iitncnevent Te pase NureER (SPAS) 
:xINDICATE. END-OF-PROGRAM AFTER 1 PASSES THRU THE 

BXXXXX™ (WHERE XXXXX I 
tir Per He aA 7 i 


ean 


t#IF THERE ISN’T 0 ST4 
SEOP: 
oo00004 SCOPE 
005037 001102 CLR STSTNM 
Hae Bt ees 
11 INC S 
042737 100000 001100 BIC #100000, SPASS 
005327 DEC (PC)+ 
000001 SEOPCT: . 
BCT SDOAGN 
01 MOV (PC)+, 0(PC)+ 
1 SENDCT: .WORD 1 
020606 SEOPCT 
104401 O20665 TYPE SENDMG 
Oar 061100 MOV $PASS, -(SP) 
1 TYPDS 
yeaa 54 aaa Bas SGETY2 nove sot Ub 
001 BEQ SDOAGN 
RESET 
00471 SENDAD: JSR PC, (RO) 
000240 NOP 


ARE SET UP TO peewee 


gee ae Min ean 
TBUF : arte, 43, The 1s 


cal A DRIVE nfoRa ares. 
HIROTCHTOR uoRo fs Ser, Thus FoR 1 


L DRIVES INTERRUPTED 
SCORRECTLY. TR THEN tT PULL bon & bite: 
1e$: 000001 BIT 


3 BH! 12 POLE en 





TEST AGAIN 


PROGRAM 
S A DECIMAL NUMBER) 


at 3 TEST 


NUMBER 
eT eR Oe OF ITERATIONS 
$3 tTRCREMENT S NUMBER 
pat ALLOW A NEG. NUMBER 


33 YES 
;;RESTORE COUNTER 


3 TYPE “END af 
ee poe BA 5 PEOU 
;;G0_TYPE- ==BecInAL ASCII WITH SIGN 


+ $60 TO MONITOR 
;SAVE ROOM 


. SEG Ollie 
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377 009 
O4e41e O4eil 
051501 de20le3 


09 
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END OF PASS ROUTINE 


336 
Nop ee 
SDOAGN: 

JMP — ; ;RETURN 


SRTNAD: . S 
L: BYTE -1,-1 : -:NULL CHARACTER STRING 
SENDHE BNE, TASCIZ «<16><12>/ENnD pass’ #7 


.SBTTL GT2RG: ROUTINE FOR GETTING RKCS,RKER 
; SUBROUTINE FOR T RRING THE CONTENTS OF RKCS, RKER 
+e eRt Go SREG1 REOPEE TUELY SOOT NE ENG OUT 3A BRE GR MESSAGE. 
-CALL: JSR PC, GTERG 

.SBTTL GT3RG: ROUTINE FOR GETTING RKCS, RKER, RKDS 
;GT 
: SBRSUTINE FOR TRANSFERRING THE CONTENTS OF RKCS, RKER, RKDS 
:TO SREGO, SREGI, SREG2 RESPECTIVELY BEFORE TYPING OUT’ AN 


: MESSAGE. 
CALL: JSR PC, GT3RG 


-SBTTL GTYRG: ROUTINE FOR GETTING RKCS, RKER, RKDS, RKDA~ 


:GTYRG 

SUBROUTINE FOR TRANSFERRING CONTENTS OF RKCS, RKER, RKDS 
?RKDA TO SREGO, SREG1 G2, SREG3 RESPECTIVELY BEFORE 
‘TYPING OUT AN’ ERROR MESSAGE. 

“CALL: JSR PC, GTYRG 


Tare: nov Srkbe" SReGe GET Ros 
GTERG: MOV  BRKER;SREGI {GET RKER 
HOV BRK, SREGO 


-SBTTL TYERM: SPECIAL ERROR MESSAGE ROUTINE 


: TYERM 
*THIS ROUTINE TYPES OUT 'EROR AT PC=x’ 

!X 1S THE PC WHERE THE EXPLANATION AS TO WHAT HAPPENED IS GIVEN. THIS ROUTINE 
s15 USED ONLY FOR _HON-MANUAL MODE OF THE PROGRAM. 


SEQ 0113 


~ SEO 0114 


KO9 
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TYERM: SPECIAL ERROR MESSAGE ROUTINE 
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DZRKKD.P11 


S 
Ss) w 
- i) 
a: Ree 
[os - # 
§ wigs oe : 
o }6«(BeY x -« & Te este 
. & oft? 4 a Se oe 
a » Eero ce © © & SES 2 
ae w -_ * Oo 4 y Ww cw =x aw Sr 
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fe x tees fe-u= 88 85 rs S5e yeas | oF 
S eps? Slept gf, fn be ctwonme= 5S 
i M2on- w 9 3 S$ @ Fre a we 
oF S peas Soness 35 Bo sq GGovee& Sey 
=) ee 
a Be 
S saei 
oe i ee LEAT Loree, at 
S & ; Seng ge, %8, 83g 8g Bee Re 
wn -~ ‘ w t i ig co % 
soo 3 ° See ig eta 2 S. avs Siheeeees 
: 2 Bete See 
8 ste Ss Be suet nee 
-oa -: Ha 


ROUT 
Sass 
NCODED T 
HE ROUTI 

S DEPOSI 
BRKDAD’ 
IVE 8 I 
YLINDER 
aun ae rs 
CTOR # 

CALL: 

BOAO MOV 

MOV 

BR 

BDAY MOV 

MOV 

BOAR BIT 

MOV 

MOV 

MOV 

BIC 

re 

eee 

BIC 

MOV 


TYERM 
6cs 
$ 
;BDA0, BDAY 
IS 
YL 


eS Lale— eae oO 


160130 


02074, 
001172 

2700 001202 
JeUUUL 
001202 

77760 


SSS Ba SRE RE SE 


03 
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Pll 22-SEP-76 08:4 BDAO, BDAY: BREAK DISK ADDRESS INTO SEC, SUR, CYL, DRIVE SEQ O115 
5331 o21054 006201 R1 
021056 010102 av R1,Re iB] ORE fT 
1 177400 iC a177406 Re XT THE CYLINDER BITS 
: f v Re, ~(RO} ; Mo CYLINOER ITs TO $REG1 OR S$REGS 
021070 042701 177770 BIC $177770,R1 EXTRACT THE DRIVE # 
021074 010140 MOV R1,-(RO} :MOVE DRIVE # TO §REGO OR SREG4 
1 1 MOV (SP)+,R2 RES R2 
Beii08 | piseol NOY CSP aa RT RESTORE Ri 
021102 912600 2s: MOV (SP)+;RO ?RESTORE RO FROM THE STACK 
021104 000002 RTI i ne FROM INTERRUPT, EXIT THIS 
.SBTTL SHFTRT: SHIFT RIGHT ROUTINE 
; SHFTRT 
;THIS ROUT INE SHIFTS A WORD TO THE RIGHT 13 TIMES. THE WORD TO BE SHIFTED 
-IS PUT ON THE STAC K BEFORE ENTERING THIS ROUTINE AND IT IS POPPED UP 
iF RON THE E STACK AFTER THE SHIFT HAS BEEN DONE. 
;C PC, SHFTR 
921106 12737 177763 021132 SHFTRT: MOV #-15,25 ;SET UP_A COUNT OF 13 
1114 Bae Sa; CLC ?CLEAR THA C BIT 
021116 OOb066 pg00g2 1S: ROR a¢Re) sROTATE RIGHT THE, WORD TO B SHFTD 
021126 ae BNE I$ tTF NO ube B BAK & SHIFT 
021130 ppasae RTS PC EXIT FROM THIS SUBROUTINE 
021132 900000 2S: 0 


-SBTTL CHKHE: CHECK FOR ’ERR’OR 
-SBTTL CHKHE1: CHECK FOR ’ERR’OR 


34° 
s THIS ROUTINE CHECKS IF *HE’ OR ‘ERR’ ey IN RKCS ARE SET. IF ANY OF THE 


‘TWO BITS ARE SET THE CONTENTS OF RKCS DS, AND DA RE SAVED AND A 
‘RETURN IS MADE TO THE Outne tHe dS * JSR’ 
:AT THe TIME OF NTR? Riven" 03 GOnTaINS 
‘BE BROKEN DOWN INTO OR 8 ano ocr SEC on” - “at 5 SNFORMATION 
:IS SAVED TO BE USED LATER For’ ERROR oR REPO PORTING. IF THE BITS ARE NOT SET, 
‘RETURN IS MADE TO SKIP THE ERROR 
; CHKHE 1 
THIS ROUTINE CHECKS IF *HE’ OR ’ ea IN RKCS ARE SET. IF ANY OF THE 
i7MO BITS. THE HE CONTENTS OF RKC RD GND ,DA,ARE, SAVED AND A 

181 SSAGE ’ CALL. 


HIRREBISNoos See CNN ck RUN TUMMRSS SA IoRe SUS UROUERE 


al alleen et De sist ei ae 


atl ppt IF THE BITS ARE 
‘RET TURN Is MADE Ft SKIP THE pra a 


w 
Ww 
& 
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ZRKKD.P 22-SEP-76 08 SEG O16 
1134 1 i CHKHE1: MOV R1,$REG1O SAVE THE DISK ADRES 
BG ast ti pi84 35 ” BR CHE I : 
1 O21142 013737 001350 001202 CHKHE: MOV DRIVAD,SREGIO  ;SAVE THE DISK ADRES 
5535 rate e773 140000 160154 CHE1: I #4 , ORKCS il "HE’ OR "ERR BIT SET? 
621160 004737 020702 im PC, GTYRG re RKCS ER,DS, DA none 
ee Belio OHFG obs ENE “BNET “or 
5397 021166 000207 RTS PC fait TO THE ERROR hessaée 
Ff .SBTTL CHKDA: CHECK IF RKDA INCREMENTED CORRECTLY 
5403 
5404 ote ROUTINE CHECKS IF RKDA INCREMENT TLY. IF RKDA INCREMENTED 
405 Peet sae Pee eY0 Rix THE ERO RESSAGE 
406 THE EXPECTED AND RECIEVED VALUES 
5407 Ae 8 AR MeTURN eS tntOE TO THE ERROR MESSAGE FOLLOWING THE 
2458 021170 013705 001350 “age ¢ ts igh INCREMENT TO THIS 
5410 021174 RS AFTER DATA TRANSFER IS DONE 
S411 21176 020577 160136 CHKDAL: inp RS, JRKDA ;DID RKDA_ INCREMENT CORRECTLY? 
Sule Oel 001455 BEQ CRETRN IF YES, BRANCH 
ate 1 010537 001202 MOV RS, SREG1O $IE NOT, REPORT — 
415 p5t5% Tosais BRKDAO tt 8 TO’ ’ AK CONTENTS OF 
Bute 1212 017737 160122 001202 MOV JRKDA, SREG1O sSREGIO INTO D Renn a ee 
418 petsie 104416 BRKDAY ; *GO TO’ ’ EAK CONTENTS OF 
5419 *$REGIO INTO DR #,CYL,SUR,SEC BITS 
pico O21222 000207 RTS PC *RETURN TO THE ERROR MESSAGE 
5422 
ees .SBTTL CHKWC: CHECK IF RKWC OVERFLOWED 
E425 ; CHKWC 
S426 :THIS ROUTINE CHECKS IF RKWC OVERFLOWED TO 0. IF IT DID A RETURN IS MADE 
5427 :T0 SKIP THE ERROR MESSAGE. IF NOT,THE CONTENTS OF RKWC AND RKDA ARE SAVED 
c42¢8 “AND A RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE 'JSR’ CALL. 
5429 021224 005777 160104 SHKWC IRKWC ;DID WORD COUNT OVERFLOW TO 0? 
5430 O2l230 Oo0l144e CRETRN ‘TF YES, BRANCH 
5431 IF NOT, ERROR 
S432 021232 017737 160076 O01162 MOV DRKWC , SREGO GET RKWC 
5433 O2le40 017737 160074 OO1164 MOV JRKDA, $REGL GET RKDA 
eta O2ie%6 000207 RTS PC *RETURN TO THE ERROR MESSAGE 
cia? .SBTTL CHKER: CHECK RKER CONTENTS 
39 Ts. "ROUT! CHECKS IF ANY BIT IN RKER SET. IF NOT BE AURN I TO SKIP 
euag OR NES cer tf alty aft re cet THE nGQNTENTS OF RKCS, KERO RKDS ARE 
5441 ae A RETURN i RADE TO te ERROR MESSAGE. 
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005777 
001430 
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1600S4 


020710 


160040 


001330 
160024 


001332 
60000 


160014 


001162 
001164 


157766 
157742 


001162 
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CHKER: CHECK RKER CONTENTS 

CHKER: TST JRKER ;DID ANY BIT IN RKER SET? 
BEQ CRETRN 30, Boma xe 
JSR PC, GT3RG 360, ‘GET RKCS, ER, OS 
RTS PC ;RETURN TO THE ERROR MESSAGE 


HTH ROUTINE. oe THAT RKER os CLEAR. IF NOT, THE CONTENTS OF RKER 
Sry ee A RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE “JSR” 
CALL: RKER IS CLEAR THE ERROR MESSAGE IS SKIPPED ON RETURN. 


a Tr ORKER sw BIT IN RKER SET? 


CRETRN ;N 
MOV RKER, SREGO :GET ADRES OF RKER 
MOV JRKER, SREG1 GET CONTENTS OF RKER 
RTS PC RETURN TO THE ERROR MESSAGE 


; CHKCCLR 
:THIS ROUTINE CHECKS THAT RKCS IS CLEAR. IF NOT, THE CONTENTS OF RKCS ARE 
;SAVED AND A RETURN 13 a Re HE ERROR MESSAGE. IF RKCS IS CLEAR THE 


: TURN. 
GHKCCLR: CMP 8200, ARKCS 315 RKCS CLEAR? 
BEQ CRETRN 


;SAVE ADRES OF RKCS 
. MOV ARKCS, SREG1 SAVE THE CONTENT OF RKCS 
RTS PC ;RETURN TO THE ERROR MESSAGE 


CRETRN: ADD #2, (SP) ;SKIP ERROR MESSAGE ON 
ry RTS PC ; RETURN 
-SBTTL TSTRWS: WAIT FOR R/W/S RDY ROUTINE 


; TSTRWS 
THIS ROUTINE WAITS FOR RWS RDY TO SET. WHEN IT SETS, THE RETURN PC 
ME R PR RROR 


; THEN A RETURN IS MAD THE ERROR MESSAGE (FOLLOWING T L) 
;WAITING TIME IS APPROX. 1040 MS FOR 11720, APPROX. 208 MS FOR 11/45 
CALL: JSR TSTRWS 


TSTRWS: MOV DRIVAD,JRKDA ss; : THE DRIVE 
CLR TIMER INITIALIZE COUNT 
1S: BIT #100, ARKDS ;DID R/W/S ROY SET? 
BNE 2s : BRANCH 
INC TIMER WATT F FOR R/W/S RDY 
BNE 15 SERROR IF IT’S NOT SET BY NOW 
MOV JRKDS, SREGO T 
RTS PC tEXIT (TO ERROR FOOLOWING 'JSR TSTRWS’) 
2S: ADD #2, (SP) ;ADJUST RETURN ADRES TO SKIP OVER 
we: ne ;ERROR (FOLLOWING "JSR TSTRWS’) 


SES 0117 
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TSTRWS: WAIT FOR R/W/S ROY ROUTINE  S€6 0118 


.SBTTL DORESET: DRIVE RESET ROUTINE 


OMe che ace A DRIVE RESET ON TH THE E RIVE S IN 
+ TF THERE 15 BO ERROR us Ro! 5 wae coat |r gtiGh BEFORE 
XITNG ROUTI ont RET Findn, Te 81 4010 SKIP 
: THE ERROR PESSAGE’ ON REL Fa : gore a ERROR, He 3 REGIS ERS TERS (CS,ER,0S) 
ERROR SgAGE cE FOL OMG i te mon FoR THI ROUTINE. 
DRESET: CLR COUNT1 s INITIALIZE THE COUNT 
my SE? NE REPS 
CNT. RDY : Hts IS A CALL FOR ’CN.RDY’ 
sROUTI WHICH WAITS FOR CNT 
NOL Ser atta Soha feo 
:(176 MS FOR 11 Mit AT PoLAR) 
: AN : REPORTED 
1S: iT 8100, IRKDS =DID R/W/S ROY SET? 
MOV $-10,-(SP) COUNT ON SP 
ae S :COUNT IT DOWN 
Ine CBUNTI pete: + NOT WAIT 
BNE 1$ : :WAITED LONG? 
is FCS 4RG 
23: ADD 82, IRE 
RTS 


-SBTTL TSTSIN: CHECK *SIN’ ROUTINE 


Hf ROUT NEC F *SIN’ IS SET, IF IT 
ie RESET 15 bone, fo ic CLEAR ‘SIN’ INITIALESE P POSITIONER. 


ON RB ReeeT neues er RDY DOES NOT SET A MESSAGE 
§ XKXKXX=PC IN THE MAIN PROGRAM THERE *TST.SIN’ CALL IS LOCATED. 


TSTSIN: eit OOO SRO tore Ee 
G 1$ 
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Sse § 


a 


| 


021572 
021600 


021604 
021610 
O2ible 


021412 


020000 157404 
021544 


177776 


900000 001366 
000002 


001366 


C10 
Teteihy CHECK SSN’ ROUTINE 


JSR PC, DRESET :G0 DO DRIVE RESET, SIN SET 
1. FF 2g :REPORT ERROR 
2: IT #SW13, aSWR NHIBIT 

cre tf s THIEL Skip. TyPEauT 

T 65S $3 ype ASE STRING 

8 ::GET OVER THE ASCIZ 


ss ASCIZ OF ne PC= / 
ee : “ = 
iags 


MOV (SP), -(SP) 
R00 8-2, (SP) GET THE PC_WHERE 'TST.SIN’ IS LOCATED 
x :GO T OUT PC 


1§ 


-SBTTL DELAY: TIME DELAY ROUTINE 


he th ® PROVIDES A TRAP” INETRUCT ION DELAY. THE CALL FOR THIS 
BNE no ” 


: iN N IS ANY OCTAL NO. FROM 1 TO 177777 
beer PROVI ts 7°SN US (CONVERT N TO DECIMAL) FOR 11/20 
TOC THE DELAY TINE (EXMP: SHORTER DELAY TO 
cer A TIGH STER ae LOOP) THE VARIABLE °N’ FOLLOWING "DELAY’ SHOULD 
CHANGED TO SUIT THE INDIVIDUAL NEED. 


DLA. ¥: MOV a(SP), TIMER *AMOUNT’ (N) FOR WHICH 


#2, (SP) 4 Btls Srack POINTER YO SKIP OVER 'N’ 


ADD 
18: DEC TI 
C 1§ 


RTI ;RETURN TO MAIN PROGRAM 


-SBTTL WAT. INT: WAIT FOR INTERRUPT ROUTINE 
iT Tas ROUT TINE PROVIDES A VARIABLE pty WATT LOOP DURING aie AN INTERRUPT 
S FROM RK 1 CAN OCCUR. THE CALL IS AN ENCODED ’TRAP’ INSTRUCTION. 
; CALL: WAT. INT ,N N IS ANY OCTAL NO. FROM 1 TO 177777 
i PPPR ae TIMEs APPROX. 7.5N US (CONVERT N TO DECIMAL) FOR 11720 
E Rou , oe PRIORITY IS DROPPED SO 


HE ROUTINE. THE 
ie Ca ‘hist poppin The THE S cK PASAT POPPING Is q pour ue GETTING 


11 INTERRUP 


iB Efe" eae ee aL ale TRS SLR SE ae) ot 


0119 
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pean Sep-7e Bes wet int WAIT FOR INTERRUPT ROUTINE SEQ 0120 
i 1 17637 000000 001366 WATINT: MOV a(SP), TIMER AMOUNT’ W) FOR WHICH 
00002 #2, (SP) ar ten 
py ie Ge, Ret = RE A CG coe cpecr rem 
Bei l l 991409 MOV RKPRI,- (SP: ; DROP CPU PRIORITY SO THAT RK11 CAN 
315 t r 5216 nov #1$,-{SP) : INTERRUP 
5617 321640 o337 001366 1S: pec TIMER mit FOR RK11 TO INTERRUPT 
ei sIF INTERRUPT HAS NOT OCCURED BY NOW 
5620 : RETURN AND REPORT ERROR 
S621 O21646 000002 RTI EXIT 
5632 
cca s WATIME 
| oss 021 WATIME: CLR —s- RO 
 5pe8 B51 620 raaeat * €LR RI 
S629 021654 005200 18 INC RO 
3530 1656 001376 BNE 1$ 
1 021660 105201 INCB ORL 
5632 Oeltée 001374 BNE 15 
5633 Ocl664 000207 RTS PC 
eps 
5636 .SBTTL CHKCROY: CHECK CONTROL READY 
oes ; 
5639 HARIE hour WAITS FOR THE CONTROL READY T0 SET. IF THE CONTROL READY BIT 
5640 NOT ys WITHIN A CERTAIN TIME, THEN THE CONTENTS OF RKCS. RKER. RKD 
5641 : AND AND AN EXIT MADE TO THE ERROR MESSAGE FOLLOWING THE 
cee :*JSR’ CALL FOR THIS ROUTINE. 
Bae if CONTROL READY SETS Th THEN THE RETURN ADDRESS IS ADJUSTED TO SKIP THE 
| ceus ; CALL: CHKCROY 
| Se4e ERROR ;RETURN HERE IF ERROR 
| B47 : ‘RETURN HERE IF NO ERROR 
021666 CH.CRDY: CLR TI 
Zeca Geiss foeve> popes is: pac "Sexes SCNTRL ROY SET? 
5651 021676 100406 : YES 
5E52 21700 Sos 001366 is Finer pi: 
ePey B51 abe Bod35 020702 S; be GTuRG :SAVE RKCS, ER, DS, DA 
aa Cel712 00002 RTI 
S657 021714 062716 oD0002 2s: ADD #2, (SP) ;ADJUST RETURN ADDRESS TO 
| EEE 021720 900002 RTI :SKIP ERROR MESSAGE ON RETURN 
5650 
«eel .SBTTL CON. RESET: CONTROL REST ROUTINE 
| eres 5CON. RESET 
—«56E4 5 THIS ROUTI Issues A CONTROL RESET AND WAITS FOR 
| Gees "THE 'CNTRL ROY’ FLAG TO SET. WHEN THE FLAG SETS 
| See AN EXIT 1S MRE OUT OF THE ROUTINE. IF "CNTRL-RDY’ 
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CON. RESET: CONTROL REST ROUTINE 


— waa ® an Mi TWEN ° CERTAIN TIME AN ERROR MESSAGE 
Y DIDN'T a 


XXXX RKCS=Y 
i GIVEN. NOTE tE tual OOK x'Ts THE PC WHERE 'CNT.RESET’ OR ‘CNT.RDY’ 


;CALL: CNT. RESET 
.SBTTL CNT.RODY: WAIT FOR CONTROL READY ROUTINE 
RDY 
sie TINE WAITS FOR THE CONTR ADY BIT TO ET oft WHEN IT 
:SETS Ex Te Gur iP Fe MIN A cERTAIN Tie CNTRL 
sNOT STAN 8 REPORTED. TING TIME IS 853. me FOR 11/20 
21 FOR ee WITH BE ROERR HE 
Bist. iw et ONTROL RESET 
tir nov $880, $Rec3 +P Ee sont 
CN. ROY+4 ;SKIP OVER CN.RDY 
GN-ROY: CR, | Secs :DID CNTAL-ROY SET? 
NC $REG3 tUATtED LONG 
BNE i$ :IF “Bo. BAK 8 WAIT 
2s: I #SW13, ISWR ‘INHIBIT TYPEOUT? 
BNE 3s :IF YES, SKIP TYPEOUT 
TYPE 
MSG3 
TYPE 6S$ is TYPE Asc ASCIZ STRING 
GR 4§ GET HE ASCIZ 
igs: -ASCIZ <15)><12>/PC=/ 
“MoV (SP). -(SP) 
su Si (SP) 
YPOC :GO TYPE PC IN THE MAIN PROGRAM, 
TYPE 675 t . TYPE 5 e Ne . 
gR a 3:GET OVER THE ASCIZ 
Th a ASCIZ / RKCS=/ 
“MOV DRKCS, -(SP) ;GET RKCS 
TYPOC :GO TYPE IT 
38: RTI FROM THIS 


;RET 
;ROUTINE TO THE MAIN 
; PROGRAM 


HIS PART OF THE Og ot lla THE COMMON ROUTINES CALLED 
THE SYSMAC.SML K 


-SBTTL SCOPE HANDLER ROUTINE 
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22-SEP-76 08:47 SCOPE HANDLER ROUTINE - SEG O22 
S724 tETHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS, IT WILL INCREMENT 
#TH WILL 
ere Boe te rest RURGER (STINE ant Tee BI SPAY fet. BYSPron ye: 20>) 
27 AND L LOAD THE 0 DISPLAY <1 
57268 #THE SWITCH Ser rone PROVIDED By THe ROUTI 
5729 :eSW14=1 LOOP ON T 
HeSuL i=l InaqerT FE AATIONS 
1 aN ef IN SWR<7:0) 
‘ : #CALL 
;* SCOPE ;;SCOPE=I0T 
d22046 SSCOPE: ; 
104407 CKSWR 33 TEST FOR CHANGE IN SOFT-SWR . 
5738 022050 032777 o40000 157062 1S: BIT 881714, ISWR LOOP ON PRESENT TEST? . 
2733 022056 001111 BNE SOVER ives TF Su14=1 
jaeessSTAR OF cho FOR THE XOR ti eeeee 
5741 022060 000416 $xTSTR 6$ IF RUNNING ON THE “ CHONGE 
erie 5 THIS INSTRUCTION ON TO A “NOP” (NOP=240) - 
022062 13746 990004 " OsERRVEC gP $$ SAV ai. rireat TS OF THE ERROR VECTOR 
BS re hee Gay Rae ia Eile rr 
5747 Oee104 O00463 Ee $SVLAD i TO THE NEXT TEST 
574g 022106 Seebet SS: CHP iso }s, (seo ‘ i Reelone he CK AFTER, a TIME OUT 
2528 022114 earee — OF 7§ geese i ae THE ERR ERPSE NT: ero 
5751 Oeells 6$:;#8e28END OF CODE FOR THE XOR i eOreRsgens 
373e Geellt err 000400 157014 gi $81 TOB, aSHR $3 PON SPEC. TEST? 
ed 022126 127737 157008 001102 CHP SSHR, STSTNN 350N THE RIGHT TEST?  SWR<7:0> 
5756 Ocel3ss 1 001103 2s STB LG thas AN OCCURRED? 
5757 Oeel4¥e 00142 BEQ 3$ ::BR IF NO 
2758 022144 1 001115 001102 CMPB  SERMAX,SERFLG ;:MAX. ERRORS FOR THIS TEST OCCURRED? 
022152 101015 BHI 3$ ::BR IF NO 
5760 OeclSd 032777 O01000 156756 BIT #81709, aSWR ‘+L OOF ON ERROR? 
5761 Oeelee O00 BEQ 4§ :iBR IF NO 
S762 Oecits Ol 001110 O01106 7S: MOV SLPERR, SLPADR T LOOP ADDRESS TO LAST SCOPE 
5763 Oeel7e OO0443 BR SOVER 
5764 022174 105037 001103 4§: CLRB LG ZEB THE ERROR FLAG 
e766 O22200 005037 001206 CLR IMES ::CLEAR THE NUMBER OF ITERATIONS TO MAKE 
feee04 00415 BR $ ESCAPE TO THE NEXT TEST 
5767 Oecc0b o32779 OO4000 156724 3S: BIT #81T11,aSWR +: INHIBIT ITERATIONS? 
eres pesste aN iP first 
2768 Oeeele ee 001100 S s ::IF FIRST PASS 
: \ Pac CSECNT + INCREMENT ITERATION COUNT 
ae s 
2554 SESS. Boss 001 001104 ore bigs sro i cheer Te NUMBER OF ITERATIONS MADE 
2558 peseae eee 000001 001104 1§ MOV a ALZe THe [Tenst fon co COUNTER 
5775 Ocee46 013737 Oeesl6 001206 MOV SricnT, STINES : SET OF JTERATIONS 0 DO 
e799 G555e0 ANTES? DOTIOE a 13 coun Totes LOOP ADDRESS 
5778 BESSES Bie? 00111 MOV (ep)! 1a. DR + OVE ERR LOOP ADDRESS 


| 
j 
| 
| 
} 
| 
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Pll 22-SEP-76 08 SCOPE HANDLER ROUTINE . SES Ol23 
e8g pesery ee Goong ROVE 81 SERMAX SEY ALLOW ONE(1) ERROR ON NEXT TEST 
ee S85503 At Tite P2243 SOVER: NOV Ste Fhn ab rspLay Hist Fes PNRuneE F 
S782 022310 013716 001106 MOV SLPADR, (SP> UDGE RETURN ADDRESS 
ace: 14 90000< RTI Hat S$ PS 

16 Q00050 SMXCNT: SO . NUMBER OF ITERATIONS 
S786 
ere 5p RASA SERES ERR RE EEE EE REL EERE E EEA EL AALS ELSA EE ERA RA ERA EEL EE EASELS LERE EES 
2559 .SB8TTL ERROR HANDLER ROUTINE 
$731 ;*#SW1S=1 
5732 s#5uI3=1 Rite ERROR TYPEOUTS 
5733 ;#SW10=1 STING ena SIMULATOR 
S74 » #SWO0S=1 
ee ;# gst CYCLE ON ERROR TO VIOUS *SCOPE’ 
; AFTER MAXIMUM (ALLOWABLE) ERRORS ON THE DRIVE 
tae To | SERRTYP ON ERROR 
ee 022320 104407 SERROR: ;CHECK FOR SOFTWARE SWITCH REGISTER REQUEST 
80 ae tae manent - Fae T LET THE FLAG TO 
Bee} peeace By 001102 156604 ; ie @DISPLAY ;DISPLAY ON NUMBER AND Rio ERROR tae 
5803 022336 005237 o0llle 1$ INC SERT ;COUNT THE NUMBER OF ERR 
aed Bees 000100 156570 T IT6, ISWR er DRIVE SW SET? 
Nee 350 1404 Q $ 
5807 023727 OOlll2 900005 CMP SERTTL, #5 ;MORE THAN S ERRORS ON THIS DRIVE? 
S806 101047 BHI 8$ : YES, DESELCT THE DRIVE 
011637 001116 6S: MOV (SP) , SERRPC ;GET ADDRESS OF ERROR INSTRUCTION 
1663 DO1116 SUB SERRPC 
11 15651 001114 MOVB a ITEMS ;STRIP AND SAVE THE ERROR ITEM CODE 
032777 156530 BIT 8513, aSWR :SKIP TYPEOUT IF SET 


88 
qe 


Be ae ian TISER ERROR ROUTINE 


ie 
156512 se: i sa Skt iF CONTINUE 


Ieee 
g 


ves 


oat CKSWR + HECK * SOF THARE SWITCH REGIATER REQUEST 
1 010000 156476 3S: BIT #SW12, ISWR ;SW I le SET” 
Sg22 001402 BEQ . +6 : 
23 001106 MOV SLPADR, (SP) ;ADJUST RETURN ADRES FOR SW12 
1 156462 BIT #SWO9, ISWR sLOOF On ERROR SWITCH SET? 

seat 111 mi Pie (SP) 
2655 Bt 18 4§: TST SEEERBe if: ae AN FORA ADDRESS 
5828 022470 001402 BEQ 
ces 7e 013716 001210 MOV SESCAPE, (SP) ‘Epa RET RN ADDRESS FOR ESCAPE 
3230 76 cs: RTI : RETURN 
S&32 022500 005737 001434 gS: TST TSEFLG ;IF EROR WAS IN LAST TEST (POLL) 
£833 ‘DROP ALL THE DRIVES 
£824 022504 001407 BE 10$ 
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ERROR HANDLER ROUTINE 
TYPE MSGS 
CLR 
44 ( +, (SP)+ 
10$: MOV DRVPTR, -(SP) 
0 :) (SP3 
MOV DRIVAD, -(SP) 
J PC, SHE TRT 
BIC #1' (Rb) 
ADD sORIVO, (SP) 
BIC #81T15' a(Rb) 
ADD #2 cB) 
BIC #8{T15,a(SP)+ 
MOV #81T12,a(SP)+ 
TYPE MSGH 
MOV ORIVAD, -(R6) 
JSR PC, SHF TRT 
T 
DEC bRIVS 
9S: Lo )s» CaP 24 
IMP BTEOP 


IVE AS RKOSE 


eee 
ze 
Bon 


epeet ee OF DRIVES PRESNT 
360 eax oe. O THE END OF PROGRM 


-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
Tp an ge St tl ge et a 


ONTROL BY 
Ter eon OBTAINS, FROM THE “ERROR 
INFORMATION CONCERNING THE ERROR 


 ETHIS 
#ERROR I 
* #AND Rebeats FE APPR iA 
SERRTYP: 
TYPE 
MOV ,- (SP) 
CLR RO 
BISB deSITEMB,RO 
BNE 1S 
MOV SERRPC, -(SP) 
TYPOC 
OR x} 
1S: DEC RO 
ASL RO 
ASL RN 
ab tC 
#SERRTB, RO 
MOV (RO)+, 2 
BEQ 3$ 
TYPE 
2s: .WORD O 
TYPE  , SCRLF 
3S: MOV (2054+,4S 
BEG 5S 
TYPE 
4S: .WORD 0 


TE” (SITEMB) TO DETERMINE WHICH 


TABLE” (SERRTB), 


; | CCARRIAGE RETURN” & “LINE FEED” 
?:PICKUP THE ITEM INDEX 


;;IF_ITEM NUMBER IS ZERO, JUST 
:: TYPE THE PC OF THE ERROR 
3 SAVE FOR TYPEOUT 


; 360 St Saas ASCIICALL DIGITS) 


;GET OUT 
i FAOJUST THE INDEX SO THAT IT WILL 
$3 WORK FOR THE ERROR TABLE 


;;FORM TABLE POINTER 
TORU “ERROR MESSAGE” POINTER 
;;SKIP TYPEOUT IF NO POINTER 
+ RE THE “ ME 
3;"ERROR MESSAGE” ey ale goes HERE 
"CARRIAGE RETURN” & “LINE FEED” 
PICKUP “DATA HEADER” POINTER 
TYPEOUT_IF 

Be “DATA HEADER” 

A HEADER” POINTER GOES HERE 


- SEG 0124 
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000207 
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a 


Be oN 


005726 
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123786 
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001213 


001213 


001157 


JUUUUE 


000011 


Oe3e02 


001186 
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ERROR MESSAGE TYPEOUT ROUTINE SEQ 0125 
TYPE SCRLF 23°C ARRIAG & “LINE FEED” 
S$: HOV Ro), RO 60 TWPE are he POINTER 
6$: MOV ee RO 
TYPE fees RETURN” & “LINE FEED” 
* RTS : RETURN 
; MOV Q(RO)+,-(SP) 11 $0V6 (RO)+ FOR TYPEOUT 
TYPOC =-OCTAL ASCIT(ALL DIGITS) 
qs {R0) $315 THERE ANOTHER NUMBER? 
PEO 3 tT TWO(2) SPACES 
BR § j LOOP 
8S: LASCIZ / / +: TWO(2) SPACES 
EVEN 


-SBTTL TYPE ROUTINE 
EHHEBHEHHHHHEHHEEHEBHEH EEE EHH EEBHE BEE HEE HEHE HEE 


pe ap ate Ay and 


BE LLER CHARACTER 
SFILLS SONTA WR TH HE NUMBER OF FILLER CHARACTERS REQUIRED. 
; ENOTES: SFILLC CONTAINS Te CHARACTER TO FILL AFTER. 
:*#CALL: Ne 
:#1) USING A TRAP INSTRUCTION 
it TYPE ,MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
i TYPE 
i MESADR 
;# 
STYPE: TSTB  S$TPFLG 331S THERE A TERMINAL? 
BPL 1$ ;3BR IF YES 
HALT os ::HALT HERE IF NO TERMINAL 
1S: MOV RO, -(SP) Het 
MOV aetsP), +: GET ieee Fee 
es: MOVB (RO)+,-(SP) ss alert ONTO STACK 
BNE 4§ i388 IF IT SH T THE T 
S (SP)+ +? INATOR POP IT eR Noe STACK 
60S: MOV (SP)+,R0 33 RO 
3S: ROD #2, (SP) ; ;ADJUST RETURN PC 
4S: A er to) BRANCH IF <HT> 
CHP CRLF , (SP) ;;BRANCH IF NOT <CRLF> 
TST (SP)+ ; 3POP <CR><LF> EQUIV 
TYPE :: TYPE A CR AND LF 
CLRB § S$CHARCNT 3 ;CLEAR CHARACTER COUNT 
BR 25 GET NEXT TGHERACTER 
cs: JSR PC STYPEC 60 TYPE, TH CHARACTER 
6S: CMPB »s«SFILLC,(SP)+ 5325 IT Ine. Pon FILLER CHARS. ? 
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08:47 TYPE ROUTINE 


BNE 
001154 MOV SAUL, -(SP) 
000001 7S: DECB =s-«A( SP) 
023136 aOR Be gt C 
023202 bE CB Schacht 
HORIZONTAL TAB PROCESSOR 
999040 gS: MOVE 8° ,(SP) 
3136 9s: JSR Pc, $TYPEC 
090007 023202 BITB #7, SCHARCNT 
fer fees 
156006 STYPEC: re BH 
i an Med 
023202 CLRB § S$CHARCNT 
OR STYPEX 
oo00012 900002 1S: CMPB sé, (SP) 
BEQ STYPEX 
INCB (PC)+ 
SCHARCNT: WORD O 
STYPEX: RTS PC 


SEG 0126 


PLE BF CHARS NEEDED 


NUL 
NULL NEED TO BE TYPED? 
POP THE NULL OFF OF STACK 


A 
NOT COUNT AS A COUNT 


SPACE 
i | BRANCH RG NOT AT 

i SP RCr OFF STACK 
GET NEXT CHARACTER 

WAIT UNTIL PRINTER IS READY 


YR. GaE A I RRR TER 
; | Yee -cLER NCHARACTER COUNT 
3 S CHARACTER A LINE FEED? 

IF YES 


: COUNT THE CHARACTER 
;;CHARACTER COUNT STORAGE 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
ae eer ne ge pore ge ty ee 
oon A “ie wey + oe ge TO 


PEO gia 
au rs 
ABEr OR IGIT 
HEAL * mov NUM, -(SP) 
; TYPDS 
STYPDS: 
MOV RO, -(SP) 
MOV R +7458) 
MOV ’ - (SP) 
my Be 
020200 MOV f2h200, -(SP) 
000020 MOV 20(SP)>RS 
aa 
0000S5 000001 MOVB = #’-, 1 (SP) 
1S: CLR RO 
023422 MOV #SDBLK,R3 


A S-DIGIT 
opice ba’ ah ON WHETHER THE 
A MI Tien WILL BE TYPED 
ALWAYS BE 


THE NUMBER. LEADING ZEROS WILL 


;;PUT_THE BINARY NUMBER ON THE STACK 
33G0 TO THE ROUTINE 


T 


; : AK £45, 
;; SETUP THE” OUTPUT BOINTER 


ae 
iy 
ee 
i 
- 





oe ~11-DZRKK-D 
Pll 22-SEP-76 


ame 


Bee 


se 


e 
023276 


ae 


ONOU CWO 


SE5S55S55S 


0+ b 70-8 -+ b= D-* b+ & + Oe 


: 
fore 
Ba 


Soe eeae eRe 


HURMNORU SS 2a Pete Saw SRO SEROUS SRONTON 


se 


| ol 


ane eS eee os aE 
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CONVERT BINARY TO DECTNAL "AND TYPE ROUTINE 


es: 
3$: 


4§: 


$OTBL: 


SDBLK: 


MOVE 
CLR 
MOV 


Rae SPE 


Bm 

_ 

sernrn yu 
w 


Mit=tat=tote1 
SUI SO 


aenrs 


a 


- BLKW 


7. 


a’ ,(R3)+ 
TBL(RO) ,R1 
R1,RS 


BEUREZSR 
R 


- 


=e 5g 


a. 
¥ B® 


ae 


plod 


B99 


aTe mmm mee 
vo 


8 
~ 
+ 


4 


3 3SET a THE 8c A CHARACTER TO A BLANK 


HE CONSTAN 
HHEoR" THs BCD DIGIT 
;; INCREASE BCD DIGIT BY 1 


HQeck Te Bb CB Bictt=0 


Pye? TSOING LEADING 0’S? 


camden os 


ADJUST THE STACK 
;;RETURN TO USER 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
=  2- 9 9 9 9  9 


:ATHIS wt IS USED TO CHANGE A 16-BIT 
asi YPOS---ENTER HERE 10. SETUP SUPA 
test ~--ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


We CK oie 


BINARY NUMBER TO A 6-DIGIT 


;;NUMBER TO BE TYPED 
ate iret Toe TYPEOUT 
N=1 % & FOR NUMBER OF DIGITS TO TYPE 


iid TYPE LEADING ZEROS 
;O=SUPPRESS LEADING ZEROS 


SEG 0127 





L10 
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DOZRKKD.P11 22-SEP-76 08:47 BINARY TO OCTAL (ASCII) AND TYPE SEG 0128 


3% 
bree j #STYPON-=— ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
1 :¥STYPOS OR STYPOC 
6062 ;*#CALL: 
£063 i MOV NUM, - (SP) ;;NUMBER TO BE TYPED 
6064 i TYPON CALL FOR TYPEOUT 
Ebee :8STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
epee eA: oy NUM, -<SP) TO BE TYPED 
ees # TYPOC : ST FoR TYPEOQUT 
6071 023432 017646 000000 STYPOS: MOV a(SP),-(SP) ;;PICKUP THE MODE 
B76 % ii 999001 023655 MOVB 1(SP)‘SOFILL ;;LOAD ZERO FILL SWITCH 
11 36 MOVB (SP)+°SOMODE+1 ;$;NUMBER OF DIGITS TO TYPE 
6074 023450 062716 00002 B00 te (SP) ADJUST RETURN ADDRESS 
core Peace i 000001 023655 STYPOC: MOVB 4c ;;SET THE ZERO FILL SWITCH 
5 tt SCORE BESEE4 STYPON FOO TET Te PRT ION COUNT 

Boe Gescon Atssue MOV Rater) ea 
6080 023502 O10446 HOV RY, (SP) is SAVE RY 
epee 5 113308 023657 MOVB SBhOUE+ 1, RY ii aey THE NUMBER OF DIGITS TO TYPE 
cose 30 eee ee ne RY TRACT IT FOR MAX. ALLOWED 
ebee Gesee0 Tigi ROVE Ra’ SOMODE + SUPA ede Use 
fe Bee ue sedi me MBs ietodt ie edt are 
£088 p5se34 asia CLR 5 : CLEAR THE 
6089 023536 006105 1S: ROL RS j ROTATE, NSB INTO “C™ 
epee ae estes 2s: ROL i >:FORM THIS DIGIT 
6092 006105 RS 
6093 023546 006108 ROL RS a 
epee este 2S: ROL R32. ;;GET LSB OF THIS DIGIT 
60% 022554 105337 023656 DECB  $OMODE :: TYPE THIS DIGIT? 
6097 100016 BPL ? :BR IF NO 
Boss Oe borane ce §g?7770,R0 a A ee 
6100 BS 3298 005704 TST ::SUPPRESS THIS 0? 
6101 1403 - BEG S i3BR IF YES ‘ 
tee p53e¢ ; Bis #’0,R3 +: MAKE Tits Bietr ASCII 
6104 023602 052703 SS: BIS #’ (RB ::MAKE ASCII IF NOT ALREADY 
6105 110337 023652 MOVB R38 ::SAVE FOR TYPING 
616 023612 10440 Desb5e T B¢ ::G0 TyPE THIS DIGIT 
61 36 3654 7S: DEC $OCNT *:COUNT BY 1 
6108 opie 7 BGT 2g ::BR IF MORE TO DO 
pie Be ORS + OF URECCAST DIGIT ISN’T A BLANK 
an oe3p 3 2s :3G0 bg T DIGIT 

11 3632 012605 6S: MOV (SP)+,RS ::RESTORE RS 
6113 023634 012604 MOV (SP)+; ::RESTORE RY 

6114 023636 012603 MOV (SP)+/R3 ::RESTORE R3 





hp ae 


DVT 
SS - 


o roOwo o o 
SOL LLL LLL LEE ELLE LLL LL LL LLL LLL LLL LLL LLL LL LL LLL LL LLL LES 
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MACY11 27(1006) 04-OCT-76 
08:47 BINARY TO 


06 
OCTAL (ASCII) AND TYPE SEQ 0129 
po00002 990004 MOV 2(SP),4(SP) one THE STACK FOR RETURNING 
ey (SP)+, (SP) 
gS: .BYT STORAGE FOR ASCII DI 
Br 5 Baca FOR TYPE. ROUTINE 
Sori: “By GETa ich Couvteh 
FORD 5 tt NUMBER tg DIGITS TO TYPE 
.SBTTL TTY INPUT ROUTINE 
FH ASSEAASARASAEALAASA ASA RERAALALEAA SERRE ARAALALAAARASAESESAAKSFHEKEE 
ENABL LSB 
HUSCrTUARE SMITCH REGISTER CHANGE ROUTINES 
tSROUTINE 18 ENTERED OM THE TRAP CUNOLER. AND WILL 
*#SERVICE THE TEST FOR CHANGE IN SOFTWARE Ra REGISTER TRAP CALL 
-#WHEN OPERATING IN TTY rr far MODE. 
000176 001140 bcKcuR: CMP 31S THE SOFT-SHR SELECTED? 
BNE ::BRANCH IF 
155250 TSTB = ASTKS CHAR T RE 
BPL 15$ *: IF NO, DON’T WAIT AROUND 
155244 MOVB  a$TKB,-(SP) ::SAVE THE CHAR 
BIC i017 (SP) etree THE ASCII 
CMP #7. (SP3+ 3318 IT CONTR G? 
BNE tee ::NO, RETURN TO USER 
001134 000001 CMPB © SAUTOB, #1 Hs WE RUNNING IN AUTO-MODE? 
BEQ 15$ ‘BRANCH IF YES 
024545 TYPE  ,SCNTLG ane THE CONTROL-G (1G) 
o245s2 SGTSWR: TYPE SMSWR :: TYPE CURRENT CONTENTS 
000176 MOV SWREG, -(SP) 33SAVE SWREG FOR TYPEOUT 
TYPOC -GO TYPE--OCTAL ASCII(ALL DIGITS) 
024563 TYPE  ,SMNEW ::PROMPT FOR NEW SWR 
19$: CLR ~(SP) Ht COUNTER 
CLR -(5P) THE NEW  SWR 
155166 7S: TSTB agrks +7 CHAR THERE? 
F NOT TRY AGAIN 
155162 MOVB  aSTKB,-(SP me K UP CHAR 
1 BIC #10177, (SP j;MAKE IT 7-BIT ASCII 
oo00025 QS: cHP ), #25 118 IT ITA ONTROL-U? 
024540 TYPE SCNTLU ies. Echo CONTROL-U (tU) 
O00006 20$: ADD ke, SP IGNORE PREVIOUS INPUT 
BR 19$ itier’ S TRY IT AGAIN 
000015 10$: CMP (SP), #15 5318 17 A <CR>? 
BNE 16$ :BRANCH IF NO 
oo0004 TST 4(SP) YES Is I THE FIRST CHAR? 
BEQ 118 ::BRANCH IF YES 


MAINOEC-11-DZRKK-D 


DZRKKD.P11 
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He eee tee bon 


001213 
1135 





@ 
bo 


KOM KKK KKOKMOTKOOMrm rw 
0 bs Bs be be be be be hn an bs Oo fn be oe he 
BB QRR LOS So SBVRRESRLS 


SSeneaRee 


SERERRKGOLE 
OnNMU£CW-O 


So 


is 


D2e4OE 
a 
024074 


Bie 
002420 
021627 
Reg 
001403 
006316 
006316 
006316 
O0S266 
000707 


0S6616 
104401 
000720 


SPE Pey Eo eee 
SEREVIGENEVS 


104401 
b6665 


012777 


Ftetatatatas 
x NEE 


c558 
S38% 


i 
S 


es 


ES 
8 
& 





27( 1006) 


155106 
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TTY INPUT ROUTINE SEQ 0130 
2(SP) , aSWR $3 
118: nee ris os He UP STACK 
14$: TYPE SCRLF :tECHO <CR> AND «LF» 
SINTAG, #1 i 5 RE-ENA TTY INTERRUPTS? 
MOV $100, 3STKS i iRe-€ -ENABLE TTY KBD INTERRUPTS 
tee: RZ STYPEC ee 
CMP es bie 0? 
BLT 18S ; | BRANCH IF YES 
CMP (SP), #67 pews oF 
Bet ABS spies :  BRONCH EF 
B 2(SP) ort we eH CHAR 
BEQ 17§ py F YES 
ASL (SP) ;;NO, Caer PRESENT 
BSL (SP) 7: ‘CHAR OVER TO MAKE 
(SP) 7: ROOM FOR NEW ONE. 
17S: INC 2(SP) *:KEEP COUNT OF CHAR 
BIS =2(SP), (SP) 33ST IN NEW 
BR 7§ ::GET THE NEXT ONE 
18$: TYPE SQUES :: TYPE ?<CR><LF> 
BR 20$ >: SIMULATE CONTROL-U 
.DSABL LSB 


5 SEE EAE AE AE SEE AEE HEE SESE HEE HEE HEME HEE EEE EE AE AEE SEE SEE HEHEHE HEHE HEE EE EE EE EE EEE 
jATHTS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


1x RDCHR ;; INPUT @ SINGLE CHARACTER FROM THE TTY 
1 RETURN HERE ;CHARACTER IS ON THE STACK 
1 sat PARITY BIT STRIPPED OFF 
SRDCHR: MOV (SP), -(SP) ;;PUSH DOWN THE PC 
MOV 4(SP},2°SP) >;SAVE THE PS 
1g TSTB = AS TKS ::WAIT FOR 
BPL t 230 CHARACTER 
MOVB TKB,4(SP) j READ THE TT 
BIC #tC<177>,4(SP) 33GET RID OF JUNK IF ANY 
cH 4(SP), #23 3318 IT A CONTROL-S? 
2s: TSTB 3s AS TKS ::WAIT FOR A CHARACTER 
BPL 2 ;;LOOP UNTIL ITS THERE 
MOVB  a$TKB,-(SP) CHARACTER 
BIC ##0177, (SP) j SNAKE IT 7-BIT ASCII 
CMP (SP)+, bel 7:1S IT A CONTROL-Q? 
BNE 2s iI NOT DISCARD IT 
BR I$ : YES 
2S: CMP 4(SP), #140 *:1S tT UPPER CASE? 
BLT ug : + BRANCH 
CMP 4(SP), #175 tits IT A SPECIAL CHAR? 
BGT : BR IF YES 
BIC #40, 4(SP) ; {MAKE IT UPPER CASE 
TI BACK T 


4S: R SER 
SERPENT ee TTT ETT TET e TTT ET TT TTT ererereT ere reer er errr Tt Ter TT 
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MACY11 27( 1006) 
08:47 


ease 024514 


000134 024514 


th heutnotie = tM 


ewes ROUTINE WILL INPUT A STRING FROM THE TTY 


SES 0132 


:* IN T 8 STRING. FROM T 
:# RETURN HERE HTADDRESS FIRST noone in “WILL a ON THE STACK 
;# + WiCe BE A BYTE OF ALL O'S 
SROLIN: MOV R3 (SP) ; SAVE R3 
CLR 33 LEAR HE RUBOUT KEY 
1$: MOV SSTTYIN R3 :: SS 
2s: CMP aSTTYINS22,R3 3; FULL? 
oe i385 READS TER FROM THE TTY 
Rover (SP)+, (R3) GET 7 ; 
108 CMPg #177, (R3) i IT A RUBOUT 
FS (SP) S THIS THE FIRST RUBOUT? 
BNE 6S $3 
M0 #°\,9S - A SLASH 
MOV ii, (SP) T THE KEY 
bs: Dee + BACKUP BY ONE 
CMP RS. aSTTYIN STACK EMPTY? 
BLO ::BR IF YES 
nove i SSE TUP TO TYPEOUT THE DELETED CHAR. 
$360 REAB ANOTHER CHAR. 
S$: ret %, $3 KEY oer 
MOVE = 8#”\,, 95 TYPE A BACK SLASH 
TYPE 3 
C sp) ;;CLEAR THE RUBOUT KEY 
7S: CMPB 3 s#25, (RB) 231 CHARAC TER A CTRL U? 
eee OF ANTLU tt A CONTROL “U™ 
$3 360 START OVER 
es CMPB 2, (R3) ACTER A “tR"? 
(R3) rt 
‘ae i eee 
TYPE STTYIN FH INPUT STRING 
* oR es : ;G0 PICKUP, ANOTHER CHACTER 
; 8k i i a THE BUFFER AND LOOP 
3S: i (R3), 9S va THE CHARACTER 
¢ 815, (R3)+ 
BNE 2s ti COOR IFO 
CLR -1(R3) :HCLEDR AR RETURN rae 1S) 
T Sif Bite 
TST tSP)+ ry FROM THE STACK 
MOV (5P)+,R3 1 RESTORE 
MOV (SP) (SP) Just a STACK AND PUT ADDRESS OF THE 
MOV } 2(SP) He T ASCII CHARACTER ON IT 
Mov 3s TYIN, 4(SP) 
9: .BYTE 0 | tiSFORAGE FOR ASCII CHAR. TO TYPE 





oe a A fate 
Pll ee- 
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Ge4S15 
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1 freurrnouting PAS 4S SEG 0 
BYTE 0 

rt BA, apap Ree aOTS fo 1 ea 

Sv eg 


SMNEW: .ASCIZ / NEW = / 


;CONTROL U, RUSOUT CAPABILITY 
-SBTTL TRAP DECODER 


a gr rg 8 tg ss 
 ATHIS ROUTINE WILL PICKUP T 


tomas DESIRED Rep: Rex ou ve Te Tan There EO Te ste] i oor 


; ROUTINE. 

STRAP: MOV RO, -(SP) ;;SAVE RO 
+s et hd ee BY oO 
nove (RO), RO a ted Evr OF TRAP 
ASL RO ::POSITION FOR INDEXING 
MOV STRPAD(RO),RO :;INDEX TO TABLE 
RTS RO ;3;G0 TO ROUTINE 


;; THIS IS USE TO HANDLE THE “GETPRI” MACRO 


STRAP2: MOV (SP), -(SP) ; MOVE THE PC DOWN 
MOV 4(SP} 2(SP) $3 THE PSW DOWN 
T : RESTORE THE PSW 

.SBTTL TRAP TABLE 

seTHIS TABLE CONT TAINS THE $1 STARTING ADDRESSES OF THE ROUTINES CALLED 

: ROUTINE 

STAN: .ynD STATE TRAP+] (104401) TTY TYPEOQUT ROUTINE 

H = 

TYPHC 33 TYPBC 33( Iouuoe) TYPE SC TAL NUMBER (WITH LEADING ZEROS) 
Ses CULSTee TRS HENS Tie cre Nireee (9 beset 
TYPDS tt Eet LS TYPDS TRApse( to4up) TYPE CIMAL NUMBER (WITH Stan) ‘ 


SGTSWR ;;CALL=GTSWR TRAP+6( 104406) GET SOFT-SWR SETTING 

SCKSWR ;;CALL=CKSWR TRAP+7 ( 104407) test. FOR CHANGE IN SOFT-SWR 
SROCHR ;;CALL=ROCHR TRAP+10( 104410) TTY TYPEIN CHARACTER ROUTINE 
SROLIN ;;CALL=ROLIN TRAP+11( 104411) TTY TYPEIN STRING ROUTINE 
CH.CROY ;;CALL=CHKCRDY TRAP+12(104412) CHECK CONTROL READY 


CN.RST ;;CALL=CNT.RESET TRAP+13( 104413) CONTROL RESET ROUTINE 





11 


See tt en ee OO eter Se Te le $0 0133 


024660 021740 CN.RDY ;;CALL=CNT.RDY TRAP+14(104414) WAIT FOR CNTRL RDY TO SET 
Oevee2 020764 , BOAO  ;;CALL=BRKDAC TRAP+1S(104415) BREAK RKDA INTO OR #,CYL,SUR,SEC BITS 
024664 020774 BDAY =; ;CALL=BRKDAY TRAP+16( 104416) BREAK RKDA INTO DR 8,CYL,SUR,SEC BITS 
O24e6E 021572 DELA.Y ;;CALL=DELAY § TRAP+17( 104417) TIME DELAY ROUTINE 

024670 021614 ' WATINT ;;CALL=WAT.INT TRAP+20( 104420) WAIT FOR RK11 INTERRUPT ROUTINE 
024672 021500 TSTSIN ;;CALL=TST.SIN TRAP+21( 104421) TEST SIN ROUTINE 


-S8TTL POWER DOWN AND UP ROUTINES 
5 SERRE RSERRE SEER REE EERE REET ELE E EA EAAA ESE E EEE E REET EER EEE EE EE 
: R DOWN ROU 


I 

024674 012737 o2S5040 000024 : MOV te LLup QSPWRVEC ;;SET FOR FAST UP 
Oe4702 012737 000340 0000z6 MOV 8340, J#PWRVEC+E 5 PRIO:2 

Beats pisrae ROY RO, - 13)  BUEH RY ON STACK 
714 Ol *=(5P) 3 ON STACK 
Bit Hess et Es 
MOV RY, -(SP) ;;PUSH RY ON STACK 
MOV RS’ -(5P) PUSH RS ON STACK 

MOV QSuR, -( SP) *:PUSH aJSWR ON STACK 


MOV 

HALT 

BR 72 $3 
5 RRSEEERERESSEERERRRRESEREE RARE SSE ELEREREEEEESEAE REEL LLLE EEE ESSE 


: UP ROUTINE 
525040 ooco24 $PwRUP: 3 ESET £OR FAST DOWN 
BSN 1s: I 


é 

SS 
a 
$ 


na 
c 
% 
; 


& 


y por ton ee Thy 
T FOR THE INC 
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